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

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

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) {