From: Graham B. <gb...@us...> - 2003-10-17 21:19:48
|
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"); } |