X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FGlobalDestruction.pm;h=418805d358f8f2af8c0c4edefa38dc6c1648feb4;hb=41ec1eaf0c685813f08d5c10727b8d39c46f4aa4;hp=aa623faf3f8c3f58a68f803e9525e6df8f76abc4;hpb=6e3fd33ea09a28ac3d9e0d47253cfd834060cde1;p=p5sagit%2FDevel-GlobalDestruction.git diff --git a/lib/Devel/GlobalDestruction.pm b/lib/Devel/GlobalDestruction.pm index aa623fa..418805d 100644 --- a/lib/Devel/GlobalDestruction.pm +++ b/lib/Devel/GlobalDestruction.pm @@ -3,7 +3,7 @@ package Devel::GlobalDestruction; use strict; use warnings; -our $VERSION = '0.05'; +our $VERSION = '0.06'; use Sub::Exporter -setup => { exports => [ qw(in_global_destruction) ], @@ -39,7 +39,7 @@ else { my ($in_global_destruction, $before_is_installed); -sub in_global_destruction { $in_global_destruction } +sub in_global_destruction () { $in_global_destruction } # This block will fire towards the end of the program execution # Since there is no way for us to generate an END which will execute *last*