--- nfo/perl/libs/Data/Mungle/Transform/Deep.pm 2002/12/01 04:44:07 1.2 +++ nfo/perl/libs/Data/Mungle/Transform/Deep.pm 2002/12/03 05:34:55 1.3 @@ -1,8 +1,11 @@ ############################################## # -# $Id: Deep.pm,v 1.2 2002/12/01 04:44:07 joko Exp $ +# $Id: Deep.pm,v 1.3 2002/12/03 05:34:55 joko Exp $ # # $Log: Deep.pm,v $ +# Revision 1.3 2002/12/03 05:34:55 joko +# + bugfix: now utilizing var_utf2iso from Data::Transform::Encode +# # Revision 1.2 2002/12/01 04:44:07 joko # + code from Data::Transform::OO # @@ -34,7 +37,7 @@ use attributes; use Data::Dumper; - +use Data::Transform::Encode qw( var_utf2iso ); sub var_NumericalHashToArray { my $vref = shift; @@ -151,6 +154,8 @@ my $data = shift; my $options = shift; + #print "hash2object", "\n"; + # "patch" needed 'cause php passes numerical-indexed-arrays as hash-tables, # this method corrects this var_NumericalHashToArray($data) if ($options->{php});