--- trunk/lib/Frey/Dumper.pm 2008/11/15 16:38:39 347
+++ trunk/lib/Frey/Dumper.pm 2008/11/16 15:19:54 355
@@ -30,7 +30,7 @@
$out .= qq|
\n|;
$out .= $self->unroll($_,ref($_)) foreach @$data;
$out .= "
\n";
- } elsif ( ref($data) ) {
+ } elsif ( ref($data) eq 'HASH' ) {
$out .= "$key ↓" if $key;
$out .= qq|\n|;
$out .= $self->unroll($data->{$_},ref($data->{$_}),$_) foreach keys %$data;