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;
|
