Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory usw-pr-cvs1:/tmp/cvs-serv5074/lib/Net/LDAP
Modified Files:
LDIF.pm
Log Message:
Handle the case where the version spec is by itself
Index: LDIF.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- LDIF.pm 23 Apr 2002 10:52:55 -0000 1.16
+++ LDIF.pm 29 May 2002 11:02:04 -0000 1.17
@@ -9,7 +9,7 @@
require Net::LDAP::Entry;
use vars qw($VERSION);
-$VERSION = "0.11";
+$VERSION = "0.12";
my %mode = qw(w > r < a >>);
@@ -109,6 +109,8 @@
if (@ldif and $ldif[0] =~ /^version:\s+(\d+)/) {
$self->{version} = $1;
shift @ldif;
+ return $self->_read_entry
+ unless @ldif;
}
if (@ldif <= 1) {
|
