From: Vincent Pit <vince@profvince.com>
Date: Wed, 2 Jan 2013 00:39:05 +0000 (+0100)
Subject: Also skip the uplevel across eval/local $@ test on perl 5.8.[345]
X-Git-Tag: v0.22~6
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=4118f6669b53693eadcc652972c472f0d87f1e7c;p=perl%2Fmodules%2FScope-Upper.git

Also skip the uplevel across eval/local $@ test on perl 5.8.[345]

A more recent set of debugging 5.8 perls shows that this test also causes
"Can't undef active subroutine during global destruction" errors with
perl 5.8.[345]. The test used to be skipped for perl 5.8.[0126], it is now
skipped for perl 5.8.[0-6], which makes definitely more sense anyway.
---

diff --git a/t/63-uplevel-ctl.t b/t/63-uplevel-ctl.t
index 3a6c5d6..fba2a68 100644
--- a/t/63-uplevel-ctl.t
+++ b/t/63-uplevel-ctl.t
@@ -153,8 +153,8 @@ is do { local $@; eval { depth() } }, 1, 'check eval block depth';
 our $hurp;
 
 SKIP: {
- skip "Causes failures during global destruction on perl 5.8.[0126]" => 5
-                  if ("$]" >= 5.008 and "$]" <= 5.008_002) or "$]" == 5.008_006;
+ skip "Causes failures during global destruction on perl 5.8.[0-6]" => 5
+                                         if "$]" >= 5.008 and "$]" <= 5.008_006;
  my $desc = 'exception with an eval and a local $@ in between';
  local $hurp = 'durp';
  local $@;