From 91bb1d3f68a89f89e9d51e142b1eeadf1a81fc34 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 4 Aug 2010 01:26:33 +0000 Subject: [PATCH] better serialization on debugging data, RT#7514 --- FS/FS/part_export/communigate_pro.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm index 3d7d76ce3..86ae105b3 100644 --- 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 ); -- 2.11.0