[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Message.pm,1.4,1.5

[Chris R. <chr...@us...>]

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

Modified Files:
	Message.pm 
Log Message:
Ziya Suzen's fix for insecure dependencies

Index: Message.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Message.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Message.pm	12 Sep 2000 09:17:09 -0000	1.4
+++ Message.pm	6 May 2003 11:55:05 -0000	1.5
@@ -83,9 +83,14 @@
 
 sub error {
   my $self = shift;
-  $self->server_error
-    or require Net::LDAP::Util
-    and Net::LDAP::Util::ldap_error_desc( $self->code );
+  my $return;
+
+  unless ($return = $self->server_error) {
+    require Net::LDAP::Util and
+    $return = Net::LDAP::Util::ldap_error_desc( $self->code );
+  }
+
+  $return;
 }
 
 sub set_error {