--- 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;