--- nfo/perl/libs/Data/Mungle/Transform/Deep.pm 2003/02/20 21:13:54 1.11 +++ nfo/perl/libs/Data/Mungle/Transform/Deep.pm 2003/02/20 22:45:19 1.12 @@ -1,7 +1,10 @@ ## --------------------------------------------------------------------------- -## $Id: Deep.pm,v 1.11 2003/02/20 21:13:54 joko Exp $ +## $Id: Deep.pm,v 1.12 2003/02/20 22:45:19 joko Exp $ ## --------------------------------------------------------------------------- ## $Log: Deep.pm,v $ +## Revision 1.12 2003/02/20 22:45:19 joko +## fix regarding new deep_copy +## ## Revision 1.11 2003/02/20 21:13:54 joko ## - removed implementation of deep_copy2 - get this from the Pitonyak namespace (now cloned to repository) ## @@ -61,6 +64,7 @@ use Data::Dumper; use Iterate; +use Pitonyak::DeepCopy; use Data::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar ); use Data::Code::Ref qw( ref_slot ); @@ -445,8 +449,9 @@ # Copyright 2002, Andrew Pitonyak (perlboy@pitonyak.org) # please visit: http://www.pitonyak.org/code/perl/Pitonyak/DeepCopy.pm.html sub deep_copy { - Pitonyak::deep_copy(@_); + Pitonyak::DeepCopy::deep_copy(@_); } + 1; __END__