/[cvs]/nfo/perl/libs/Data/Mungle/Transform/Deep.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Mungle/Transform/Deep.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Sun Dec 1 04:44:07 2002 UTC revision 1.3 by joko, Tue Dec 3 05:34:55 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.3  2002/12/03 05:34:55  joko
7    #  + bugfix: now utilizing var_utf2iso from Data::Transform::Encode
8    #
9  #  Revision 1.2  2002/12/01 04:44:07  joko  #  Revision 1.2  2002/12/01 04:44:07  joko
10  #  + code from Data::Transform::OO  #  + code from Data::Transform::OO
11  #  #
# Line 34  our @EXPORT_OK = qw( Line 37  our @EXPORT_OK = qw(
37    
38  use attributes;  use attributes;
39  use Data::Dumper;  use Data::Dumper;
40    use Data::Transform::Encode qw( var_utf2iso );
41    
42  sub var_NumericalHashToArray {  sub var_NumericalHashToArray {
43    my $vref = shift;    my $vref = shift;
# Line 151  sub hash2object { Line 154  sub hash2object {
154    my $data = shift;    my $data = shift;
155    my $options = shift;    my $options = shift;
156    
157      #print "hash2object", "\n";
158      
159    # "patch" needed 'cause php passes numerical-indexed-arrays as hash-tables,    # "patch" needed 'cause php passes numerical-indexed-arrays as hash-tables,
160    # this method corrects this    # this method corrects this
161    var_NumericalHashToArray($data) if ($options->{php});    var_NumericalHashToArray($data) if ($options->{php});
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed