[freeside-commits] freeside/FS/FS/part_export communigate_pro.pm, 1.16.4.23, 1.16.4.24

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv18618

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	communigate_pro.pm 
Log Message:
better serialization on debugging data, RT#7514

Index: communigate_pro.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/communigate_pro.pm,v
retrieving revision 1.16.4.23
retrieving revision 1.16.4.24
diff -u -w -d -r1.16.4.23 -r1.16.4.24
--- communigate_pro.pm	4 Aug 2010 01:26:33 -0000	1.16.4.23
+++ communigate_pro.pm	4 Aug 2010 01:29:11 -0000	1.16.4.24
@@ -828,11 +828,12 @@
   if ( ref($value) eq 'ARRAY' ) {
     '['. join(' ', map { ref($_) ? _pretty($_) : $_ } @$value ). ']';
   } elsif ( ref($value) eq 'HASH' ) {
-    join(', ', map { my $v = $value->{$_};
+    '{'. join(', ',
+        map { my $v = $value->{$_};
                      "$_:". ( ref($v) ? _pretty($v) : $_ );
                    }
                    keys %$value
-        );
+    ). '}';
   } else {
     warn "serializing ". ref($value). " for table display not yet handled";
   }