From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 6 Mar 2013 08:19:21 +0000 (+0100)
Subject: Perl 5.6 compat
X-Git-Tag: 0.01~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cac979c61b6eccc32b00b899010606f7e6cacc52;p=p5sagit%2FDevel-GlobalDestruction-XS.git

Perl 5.6 compat
---

diff --git a/Makefile.PL b/Makefile.PL
index 2deef69..60bbb4e 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-require 5.008001;
+require 5.006;
 
 use ExtUtils::MakeMaker;
 
@@ -19,7 +19,7 @@ my %WriteMakefileArgs = (
   LICENSE             => 'perl',
   INSTALLDIRS         => 'site',
   PL_FILES            => { },
-  MIN_PERL_VERSION    => '5.008001',
+  MIN_PERL_VERSION    => '5.006',
   PREREQ_PM           => \%RUN_DEPS,
   CONFIGURE_REQUIRES  => { 'ExtUtils::CBuilder' => 0.27 },
   META_ADD => {
diff --git a/t/01_basic.t b/t/01_basic.t
index 3fafec5..514d425 100644
--- a/t/01_basic.t
+++ b/t/01_basic.t
@@ -1,5 +1,6 @@
 use strict;
 use warnings;
+no warnings 'once';
 
 BEGIN {
   package Test::Scope::Guard;
@@ -11,28 +12,6 @@ print "1..8\n";
 
 our $had_error;
 
-# try to ensure this is the last-most END so we capture future tests
-# running in other ENDs
-require B;
-my $reinject_retries = my $max_retry = 5;
-my $end_worker;
-$end_worker = sub {
-  my $tail = (B::end_av()->ARRAY)[-1];
-  if (!defined $tail or $tail == $end_worker) {
-    $? = $had_error || 0;
-    $reinject_retries = 0;
-  }
-  elsif ($reinject_retries--) {
-    push @{B::end_av()->object_2svref}, $end_worker;
-  }
-  else {
-    print STDERR "\n\nSomething is racing with @{[__FILE__]} for final END block definition - can't win after $max_retry iterations :(\n\n";
-    require POSIX;
-    POSIX::_exit( 255 );
-  }
-};
-END { push @{B::end_av()->object_2svref}, $end_worker }
-
 sub ok ($$) {
   $had_error++, print "not " if !$_[0];
   print "ok";