From: Vincent Pit <vince@profvince.com>
Date: Tue, 6 Jan 2009 16:58:15 +0000 (+0100)
Subject: The 5.6 failure was actually a compile-time error, so wrap the faulty test in an... 
X-Git-Tag: v0.04~21
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=bb65dbcf7daba3ac5c7e0f933745762bf6ea56bf;p=perl%2Fmodules%2FScope-Upper.git

The 5.6 failure was actually a compile-time error, so wrap the faulty test in an eval STRING
---

diff --git a/t/29-localize-target.t b/t/29-localize-target.t
index 3e54d0e..5d23469 100644
--- a/t/29-localize-target.t
+++ b/t/29-localize-target.t
@@ -64,25 +64,29 @@ undef *x;
 SKIP:
 {
  skip 'Can\'t localize through a reference in 5.6' => 2 if $] < 5.008;
- no strict 'refs';
- local ${''} = 9;
- {
-  localize '$', 4, 0;
-  is ${''}, 4, 'localize "$", 4, 0 [ok]';
- }
- is ${''}, 9, 'localize "$", 4, 0 [end]';
+ eval q{
+  no strict 'refs';
+  local ${''} = 9;
+  {
+   localize '$', 4, 0;
+   is ${''}, 4, 'localize "$", 4, 0 [ok]';
+  }
+  is ${''}, 9, 'localize "$", 4, 0 [end]';
+ };
 }
 
 SKIP:
 {
  skip 'Can\'t localize through a reference in 5.6' => 2 if $] < 5.008;
- no strict 'refs';
- local ${''} = 10;
- {
-  localize '', 5, 0;
-  is ${''}, 5, 'localize "", 4, 0 [ok]';
- }
- is ${''}, 10, 'localize "", 4, 0 [end]';
+ eval q{
+  no strict 'refs';
+  local ${''} = 10;
+  {
+   localize '', 5, 0;
+   is ${''}, 5, 'localize "", 4, 0 [ok]';
+  }
+  is ${''}, 10, 'localize "", 4, 0 [end]';
+ };
 }
 
 {