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
}
for my $key (@orig_keys) {
}
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/
$key = quote($key) if $is_perl_keyword{$key} ||
!($key =~ /^[a-zA-Z_]\w{0,19}\z/ ||
$key =~ /^-?[1-9]\d{0,8}\z/