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 3d7d76c..86ae105 100644 (file)
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -828,9 +828,8 @@ sub _pretty {
   if ( ref($value) eq 'ARRAY' ) {
     '['. join(' ', map { ref($_) ? _pretty($_) : $_ } @$value ). ']';
   } elsif ( ref($value) eq 'HASH' ) {
-    my $hv = $value->{$_};
     join(', ', map { my $v = $value->{$_};
-                     "$_:". ref($v) ? _pretty($v) : $_ 
+                     "$_:". ( ref($v) ? _pretty($v) : $_ );
                    }
                    keys %$value
         );