From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 25 Jan 2010 18:37:22 +0000 (+0000)
Subject: auto-vivification fix for error
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=03289324961f63070a93feda472c62a090ce4501;p=pxelator

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
--- 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/