[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP LDIF.pm,1.15,1.16

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

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory usw-pr-cvs1:/tmp/cvs-serv31925/lib/Net/LDAP

Modified Files:
	LDIF.pm 
Log Message:
Support line continuations in LDIF files in comments.
Patch from Norbert Klasen


Index: LDIF.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- LDIF.pm	4 Feb 2002 14:58:35 -0000	1.15
+++ LDIF.pm	23 Apr 2002 10:52:55 -0000	1.16
@@ -80,8 +80,8 @@
        $self->eof(1);
        return;
     }
-    $ln =~ s/^#.*\n//mg;
     $ln =~ s/\n //sg;
+    $ln =~ s/^#.*\n//mg;
     chomp($ln);
     $self->{_current_lines} = $ln;
     chomp(@ldif = split(/^/, $ln));