Localize $SIG{__DIE__} inside _try_load_one_class

diff --git a/Changes b/Changes
index 20c7caf..215bbc2 100644 (file)
--- a/Changes
+++ b/Changes
@@ -8,6 +8,9 @@ Revision history for Perl extension Class-MOP.
       - Tweak original commit so the intent matches the accepted behavior
         (Nicholas Perez)
 
+    * Class::MOP
+      - Localize $SIG{__DIE__} inside _try_load_one_class (Sartak)
+
 0.84 Tue, May 12, 2009
     * Makefile.PL
       - Depend on Text::Exception 0.27 to avoid failing tests ond old

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 5705215..846869f 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -131,6 +131,7 @@ sub _try_load_one_class {
 
     return do {
         local $@;
+        local $SIG{__DIE__};
         eval { require($file) };
         $@;
     };