--- trunk/lib/Frey/Dumper.pm 2008/11/17 11:58:41 367 +++ trunk/lib/Frey/Dumper.pm 2008/11/19 00:47:22 433 @@ -42,7 +42,7 @@ $out .= "\n"; } else { $out .= " → " if $key; - if ( $data =~ m{<(\w+).*>.+\1>} ) { + if ( defined $data && $data =~ m{<(\w+).*>.+\1>} ) { $out .= qq|