Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv22500/lib/Net/LDAP
Modified Files:
Message.pm
Log Message:
Fix reference loop problem by hiding the real object behind a tied
hash and only using the inner hash internally and the outer hash
externally
Index: Message.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Message.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Message.pm 20 May 2003 14:56:04 -0000 1.7
+++ Message.pm 6 Jun 2003 22:47:14 -0000 1.8
@@ -10,7 +10,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = "1.06";
+$VERSION = "1.07";
my $MsgID = 0;
@@ -23,7 +23,7 @@
sub new {
my $self = shift;
my $type = ref($self) || $self;
- my $parent = shift;
+ my $parent = shift->inner;
my $arg = shift;
$self = bless {
@@ -206,7 +206,7 @@
sub pdu { shift->{pdu} }
sub callback { shift->{callback} }
-sub parent { shift->{parent} }
+sub parent { shift->{parent}->outer }
sub mesg_id { shift->{mesgid} }
sub is_error { shift->code }
|
