[Catalyst-commits] r10887 - Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-07-15 10:06:01 +0000 (Wed, 15 Jul 2009)
New Revision: 10887

Modified:
   Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP/Backend.pm
Log:
Pasting a username with too much space in results in a 500 error.. Make it DTRT instead

Modified: Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP/Backend.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP/Backend.pm	2009-07-15 10:04:29 UTC (rev 10886)
+++ Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP/Backend.pm	2009-07-15 10:06:01 UTC (rev 10887)
@@ -276,6 +276,8 @@
     if ( $id =~ /\*/ ) {
         Catalyst::Exception->throw("ID $id contains wildcards!");
     }
+    # Trim trailing space or we confuse ourselves
+    $id =~ s/\s+$//;
     my $ldap = $self->ldap_bind;
     my @searchopts;
     if ( defined( $self->user_basedn ) ) {