die if the wrapper sub eval fails

nothingmuch · Feb 2, 2008 · b3f8aa9 · b3f8aa9
1 parent 1a312b0
commit b3f8aa9
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/lib/Data/Thunk/Code.pm b/lib/Data/Thunk/Code.pm
@@ -66,14 +66,17 @@ foreach my $sym (keys %UNIVERSAL::) {
 
 	next if $sym eq 'ref::';
 	next if defined &$sym;
+
+	local $@;
+
 	*{$sym} = eval "sub {
 		if ( Scalar::Util::blessed(\$_[0]) ) {
 			unshift \@_, \$sym;
 			goto \$vivify_and_call;
 		} else {
 			shift->SUPER::$sym(\@_);
 		}
-	}";
+	}" || die $@;
 }
 
 sub AUTOLOAD {

diff --git a/lib/Data/Thunk/Object.pm b/lib/Data/Thunk/Object.pm
@@ -42,6 +42,9 @@ foreach my $sym (keys %UNIVERSAL::) {
 
 	next if $sym eq 'ref::';
 	next if defined &$sym;
+
+	local $@;
+
 	*{$sym} = eval "sub {
 		my ( \$self, \@args ) = \@_;
 
@@ -50,7 +53,7 @@ foreach my $sym (keys %UNIVERSAL::) {
 		} else {
 			return \$self->SUPER::$sym(\@args);
 		}
-	}";
+	}" || die $@;
 
 	warn $@ if $@;
 }