diff options
| author | levinse <levinse> | 2010-11-28 22:30:53 +0000 |
|---|---|---|
| committer | levinse <levinse> | 2010-11-28 22:30:53 +0000 |
| commit | dc099447caf044996bf6aa9421c8a0ee2ce1dfe4 (patch) | |
| tree | fb6fb2811dcbda8bcde969c9a4a4ddcdf87c594a | |
| parent | 05d4021bdec9ebd786b71e839d233f2d29650702 (diff) | |
Force particular response elements to always be represented as arrays when converted from XML,
even if only one such element is present
| -rw-r--r-- | lib/Net/Ikano.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Net/Ikano.pm b/lib/Net/Ikano.pm index c1e4b87..8b8ec76 100644 --- a/lib/Net/Ikano.pm +++ b/lib/Net/Ikano.pm @@ -322,7 +322,8 @@ sub AUTOLOAD { unless $resp->is_success; my $respxml = $resp->decoded_content; - $xs = new Net::Ikano::XMLUtil(RootName => undef, SuppressEmpty => ''); + $xs = new Net::Ikano::XMLUtil(RootName => undef, SuppressEmpty => '', + ForceArray => [ 'Address', 'Product', 'StaticIp', 'OrderNotes' ] ); my $resphash = $xs->XMLin($respxml); warn "DEBUG RESPONSE\n\tHASH:\n ".Dumper($resphash)."\n\tXML:\n $respxml" |