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

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

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       }