# HG changeset patch
# User sergey
# Date 1370268234 -14400
# Node ID 50ff1595bd626fa3021dfeaaa58439d897d6e33f
# Parent  63709a4e6da0fb229c86130969bb5562d0c7fbb5
fixed bug when transforming list properties

diff -r 63709a4e6da0 -r 50ff1595bd62 Lib/IMPL/DOM/Transform/ObjectToDOM.pm
--- a/Lib/IMPL/DOM/Transform/ObjectToDOM.pm	Mon Jun 03 03:28:01 2013 +0400
+++ b/Lib/IMPL/DOM/Transform/ObjectToDOM.pm	Mon Jun 03 18:03:54 2013 +0400
@@ -140,9 +140,10 @@
             $_->name, 1
         } $data->GetMeta(PropertyInfo, sub { $_->access == ACCESS_PUBLIC }, 1 );
         
+        
         my %values = map {
             $_,
-            $data->$_();
+            scalar($data->$_())
         } keys %props;
         
         return $this->Transform(\%values);