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

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

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

Modified Files:
	LDIF.pm 
Log Message:
Patch for solitary comments from Peter Marschall


Index: LDIF.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- LDIF.pm	29 May 2002 11:02:04 -0000	1.17
+++ LDIF.pm	24 Oct 2002 12:49:24 -0000	1.18
@@ -9,7 +9,7 @@
 require Net::LDAP::Entry;
 use vars qw($VERSION);
 
-$VERSION = "0.12";
+$VERSION = "0.13";
 
 my %mode = qw(w > r < a >>);
 
@@ -85,8 +85,14 @@
     chomp($ln);
     $self->{_current_lines} = $ln;
     chomp(@ldif = split(/^/, $ln));
-    $self->{_next_lines} = scalar <$fh> || '';
-    $self->eof(1) unless $self->{_next_lines};
+    do {
+      $ln = scalar <$fh> || '';
+      $self->eof(1) unless $ln;
+      $ln =~ s/\n //sg;
+      $ln =~ s/^#.*\n//mg;
+      chomp($ln);
+      $self->{_next_lines} = $ln;
+    } until ($self->{_next_lines} || $self->eof());
   }
 
   @ldif;