auto-vivification fix for error

Modification of non-creatable hash value attempted, subscript "File" at /usr/share/perl5/Data/Dump.pm line 272

which is triggered by MongoDB perl driver

diff --git a/lib/Data/Dump.pm b/lib/Data/Dump.pm
index 6218881..7377cb3 100644 (file)
--- a/lib/Data/Dump.pm
+++ b/lib/Data/Dump.pm
@@ -269,7 +269,7 @@ sub _dump
        }
 
        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/