--- nfo/perl/libs/Data/Mungle/Transform/Deep.pm	2003/01/19 03:26:59	1.7
+++ nfo/perl/libs/Data/Mungle/Transform/Deep.pm	2003/02/09 05:10:56	1.8
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: Deep.pm,v 1.7 2003/01/19 03:26:59 joko Exp $
+##  $Id: Deep.pm,v 1.8 2003/02/09 05:10:56 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: Deep.pm,v $
+##  Revision 1.8  2003/02/09 05:10:56  joko
+##  + minor update
+##
 ##  Revision 1.7  2003/01/19 03:26:59  joko
 ##  + added 'sub deep_copy'  -  refactored from libp
 ##  + add 'sub merge'  -  exported from CPAN's 'Hash::Merge'
@@ -55,7 +58,6 @@
 use Data::Transform::Encode qw( var_utf2iso var2utf8 scalar2utf8 );
 
 use Hash::Merge qw( merge );
-#use libp qw( deep_copy );
 use Iterate;
 
 sub var_NumericalHashToArray {
@@ -333,7 +335,7 @@
       } else {
         my $val = getStructSlotByStringyAddress($data, \@indexstack);
         
-print Dumper($options);
+#print Dumper($options);
         my $field_target = $field;
         if (my $pattern = $options->{pattern_strip_key}) {
           print "pattern: $pattern", "\n";