[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.51,1.52

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory sc8-pr-cvs1:/tmp/cvs-serv6648/lib/Net

Modified Files:
	LDAP.pm 
Log Message:
Fix url host extraction

Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- LDAP.pm	19 May 2003 15:08:05 -0000	1.51
+++ LDAP.pm	19 May 2003 22:28:06 -0000	1.52
@@ -103,7 +103,7 @@
     my $scheme = $arg->{scheme} || 'ldap';
     (my $h = $uri) =~ s,^(\w+)://,, and $scheme = $1;
     my $meth = $obj->can("connect_$scheme") or next;
-    $h =~ s,^//([^/]*).*,$1,; # Extract host
+    $h =~ s,/.*,,; # remove path part
     $h =~ s/%([A-Fa-f0-9]{2})/chr(hex($1))/eg; # unescape
     if (&$meth($obj, $h, $arg)) {
       $obj->{net_ldap_uri} = $uri;