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 90e6977..2cad244 100644 (file)
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -830,7 +830,7 @@ sub _pretty {
   } elsif ( ref($value) eq 'HASH' ) {
     '{'. join(', ',
         map { my $v = $value->{$_};
-              "$_:". ( ref($v) ? _pretty($v) : $_ );
+              "$_:". ( ref($v) ? _pretty($v) : $v );
             }
             keys %$value
     ). '}';