--- nfo/perl/libs/Data/Mungle/Transform/Deep.pm 2003/02/20 22:45:19 1.12 +++ nfo/perl/libs/Data/Mungle/Transform/Deep.pm 2003/02/21 01:48:50 1.13 @@ -1,7 +1,10 @@ ## --------------------------------------------------------------------------- -## $Id: Deep.pm,v 1.12 2003/02/20 22:45:19 joko Exp $ +## $Id: Deep.pm,v 1.13 2003/02/21 01:48:50 joko Exp $ ## --------------------------------------------------------------------------- ## $Log: Deep.pm,v $ +## Revision 1.13 2003/02/21 01:48:50 joko +## renamed core function +## ## Revision 1.12 2003/02/20 22:45:19 joko ## fix regarding new deep_copy ## @@ -136,6 +139,8 @@ } +# convert values in hash to utf8 (and back) to be ready for (e.g.) encapsulation in XML +# but still using the known latin locale stuff sub expand { my $obj = shift; @@ -205,7 +210,7 @@ # convert all values to utf8 (inside complex struct) # now done in core-item-callbacks via Greg London's "Iterate" from CPAN - # var2utf8($result) if ($options->{utf8}); + # latin_to_utf8($result) if ($options->{utf8}); # destroy persistent object from memory to be sure to get a fresh one next time #undef $obj if $options->{destroy};