[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Entry.pm,1.11,1.12

[Kartik S. <kar...@us...>]

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

Modified Files:
	Entry.pm 
Log Message:
Fixed clone(): update $clone->{changetype} and $clone->{changes}.
(patch from David Faltermier)


Index: Entry.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Entry.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- Entry.pm	22 Feb 2003 18:26:39 -0000	1.11
+++ Entry.pm	3 Mar 2003 18:00:22 -0000	1.12
@@ -9,7 +9,7 @@
 use Net::LDAP::Constant qw(LDAP_LOCAL_ERROR);
 use vars qw($VERSION);
 
-$VERSION = "0.18";
+$VERSION = "0.19";
 
 sub new {
   my $self = shift;
@@ -27,6 +27,17 @@
   $clone->dn($self->dn());
   foreach ($self->attributes()) {
     $clone->add($_ => [$self->get_value($_)]);
+  }
+
+  $clone->{changetype} = $self->{changetype};
+  my @changes = @{$self->{changes}};
+  while (my($action, $cmd) = splice(@changes,0,2)) {
+    my @new_cmd;
+    my @cmd = @$cmd;
+    while (my($type, $val) = splice(@cmd,0,2)) {
+      push @new_cmd, $type, [ @$val ];
+    }
+    push @{$clone->{changes}}, $action, \@new_cmd;
   }
 
   $clone;