--- trunk/lib/Frey/Dumper.pm 2008/11/16 16:44:20 360
+++ trunk/lib/Frey/Dumper.pm 2008/11/17 11:58:41 367
@@ -28,7 +28,7 @@
$out .= qq|
|;
my $mark = $key || '♦';
- $out .= $ref && $ref !~ m{^(ARRAY|HASH)$} ? qq|$mark| : $key;
+ $out .= $ref && $ref !~ m{^(ARRAY|HASH)$} ? qq|$mark| : ( $key || '' );
if ( ref($data) eq 'ARRAY' ) {
$out .= " ↓" if $key;