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

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

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

Modified Files:
	Entry.pm 
Log Message:
Avoid cannot call method on unbless reference error


Index: Entry.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Entry.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- Entry.pm	9 May 2003 11:56:17 -0000	1.14
+++ Entry.pm	17 Oct 2003 21:19:38 -0000	1.15
@@ -1,4 +1,4 @@
-# Copyright (c) 1997-2000 Graham Barr <gb...@po...>. All rights reserved.
+# Copyright (c) 1997-2003 Graham Barr <gb...@po...>. All rights reserved.
 # This program is free software; you can redistribute it and/or
 # modify it under the same terms as Perl itself.
 
@@ -9,7 +9,7 @@
 use Net::LDAP::Constant qw(LDAP_LOCAL_ERROR);
 use vars qw($VERSION);
 
-$VERSION = "0.20";
+$VERSION = "0.21";
 
 sub new {
   my $self = shift;
@@ -250,7 +250,7 @@
   }
   else {
     require Net::LDAP::Message;
-    $mesg = Net::LDAP::Message->new( {} );
+    $mesg = Net::LDAP::Message->new( $ldap );
     $mesg->set_error(LDAP_LOCAL_ERROR,"No attributes to update");
   }