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 |
# |
# |
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; |
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}); |