perl 5.6.0 and newer have the our keyword

[p5sagit/Devel-GlobalDestruction.git] / lib / Devel / GlobalDestruction.pm

diff --git a/lib/Devel/GlobalDestruction.pm b/lib/Devel/GlobalDestruction.pm
index 314e1c3..b8385b7 100644 (file)
--- a/lib/Devel/GlobalDestruction.pm
+++ b/lib/Devel/GlobalDestruction.pm
@@ -5,23 +5,11 @@ package Devel::GlobalDestruction;
 use strict;
 use warnings;
 
-use vars qw($VERSION @ISA);
-
-BEGIN {
-       $VERSION = '0.01';
-
-       local $@;
-
-       eval {
-               require XSLoader;
-               __PACKAGE__->XSLoader::load($VERSION);
-               1;
-       } or do {
-               require DynaLoader;
-               push @ISA, 'DynaLoader';
-               __PACKAGE__->bootstrap($VERSION);
-       };
-}
+use XSLoader;
+
+our $VERSION = '0.02';
+
+XSLoader::load(__PACKAGE__, $VERSION);
 
 use Sub::Exporter -setup => {
        exports => [ qw(in_global_destruction) ],