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

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

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

Modified Files:
	Message.pm 
Log Message:
Call the callback, if any, for a message when its
error is explicitly set


Index: Message.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Message.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Message.pm	6 May 2003 11:55:05 -0000	1.5
+++ Message.pm	6 May 2003 16:46:02 -0000	1.6
@@ -10,7 +10,7 @@
 use strict;
 use vars qw($VERSION);
 
-$VERSION = "1.05";
+$VERSION = "1.06";
 
 my $MsgID = 0;
 
@@ -96,6 +96,8 @@
 sub set_error {
   my $self = shift;
   ($self->{resultCode},$self->{errorMessage}) = ($_[0]+0, "$_[1]");
+  $self->{callback}->($self)
+    if (defined $self->{callback});
   $self;
 }