X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FDestructor.pm;h=627634a286dfe13a5571b83a4af106f188e53b5a;hb=671dc85a6a11d897e1d81345e0a8e68e829b371b;hp=d0a4a7662af511ab7fb7fb1ae22cbe227983bd22;hpb=e3d94ac0990080399851812a76928c893c3cd4fa;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/Method/Destructor.pm b/lib/Moose/Meta/Method/Destructor.pm
index d0a4a76..627634a 100644
--- a/lib/Moose/Meta/Method/Destructor.pm
+++ b/lib/Moose/Meta/Method/Destructor.pm
@@ -6,7 +6,7 @@ use warnings;
 
 use Scalar::Util 'blessed', 'weaken';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.89_02';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
@@ -81,6 +81,7 @@ sub _initialize_body {
     my $source;
     if ( @DEMOLISH_methods ) {
         $source = 'sub {';
+        $source .= 'local ( $., $@, $!, $^E, $? );' . "\n";
 
         my @DEMOLISH_calls;
         foreach my $method (@DEMOLISH_methods) {