[Bps-public-commit] net-lighthouse branch, master, updated. c7292495af2c648a09d61420f8aa1d2f33135226

sunnavy at bestpractical.com sunnavy at bestpractical.com
Thu Aug 27 04:04:29 EDT 2009


The branch, master has been updated
       via  c7292495af2c648a09d61420f8aa1d2f33135226 (commit)
      from  8e4352673ff0bea69316fa040b9b8d6e7ba469af (commit)

Summary of changes:
 lib/Net/Lighthouse/Util.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit c7292495af2c648a09d61420f8aa1d2f33135226
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Aug 27 16:04:24 2009 +0800

    tiny fix

diff --git a/lib/Net/Lighthouse/Util.pm b/lib/Net/Lighthouse/Util.pm
index c1521c3..ecc214f 100644
--- a/lib/Net/Lighthouse/Util.pm
+++ b/lib/Net/Lighthouse/Util.pm
@@ -7,7 +7,7 @@ use XML::Simple;
 sub translate_from_xml {
     my $self = shift;
     my $ref = shift;
-    $ref = XMLin( $ref ) unless ref $ref;
+    $ref = XMLin( $ref, KeyAttr => [] ) unless ref $ref;
     %$ref = map { my $new = $_; $new =~ s/-/_/g; $new => $ref->{$_} } keys %$ref;
     for my $k ( keys %$ref ) {
         if ( ref $ref->{$k} eq 'HASH' ) {

-----------------------------------------------------------------------



More information about the Bps-public-commit mailing list