From: ivan <ivan>
Date: Wed, 4 Aug 2010 01:29:11 +0000 (+0000)
Subject: better serialization on debugging data, RT#7514
X-Git-Tag: freeside_1_9_5~86
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=97a2e9230fddd590304b7a16b3da1d14aa7411d3;p=freeside.git

better serialization on debugging data, RT#7514
---

diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm
index 86ae105b3..90e697705 100644
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -828,11 +828,12 @@ sub _pretty {
   if ( ref($value) eq 'ARRAY' ) {
     '['. join(' ', map { ref($_) ? _pretty($_) : $_ } @$value ). ']';
   } elsif ( ref($value) eq 'HASH' ) {
-    join(', ', map { my $v = $value->{$_};
-                     "$_:". ( ref($v) ? _pretty($v) : $_ );
-                   }
-                   keys %$value
-        );
+    '{'. join(', ',
+        map { my $v = $value->{$_};
+              "$_:". ( ref($v) ? _pretty($v) : $_ );
+            }
+            keys %$value
+    ). '}';
   } else {
     warn "serializing ". ref($value). " for table display not yet handled";
   }