--- lib/Data/Dump.pm	2010/01/25 18:35:54	494
+++ lib/Data/Dump.pm	2010/01/25 18:37:22	495
@@ -269,7 +269,7 @@
 	}
 
 	for my $key (@orig_keys) {
-	    my $val = \$rval->{$key};
+	    my $val = eval { \$rval->{$key} };
 	    $key = quote($key) if $is_perl_keyword{$key} ||
 		                  !($key =~ /^[a-zA-Z_]\w{0,19}\z/ ||
 				    $key =~ /^-?[1-9]\d{0,8}\z/