X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FModule.pm;h=abbcbf050ca05fff0bbca6375b9e60ab0097bb1c;hb=19b79c194a6ef0d4ba79a6be03ee3124b0a54b62;hp=579fbd45ed92c570ac7281860b89a0b64c52dc79;hpb=33ecbaa40bbcda7518cb3e5477d357e6b3d95ff6;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP/Module.pm b/lib/Class/MOP/Module.pm
index 579fbd4..abbcbf0 100644
--- a/lib/Class/MOP/Module.pm
+++ b/lib/Class/MOP/Module.pm
@@ -7,7 +7,7 @@ use warnings;
 use Carp         'confess';
 use Scalar::Util 'blessed';
 
-our $VERSION   = '0.80';
+our $VERSION   = '0.88';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
@@ -50,8 +50,13 @@ sub _instantiate_module {
     $code .= "\$$package_name\:\:AUTHORITY = '" . $authority . "';"
         if defined $authority;
 
-    eval $code;
-    confess "creation of $package_name failed : $@" if $@;
+    my $e = do {
+        local $@;
+        local $SIG{__DIE__};
+        eval $code;
+        $@;
+    };
+    confess "creation of $package_name failed : $e" if $e;
 }
 
 1;