]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
The 5.6 failure was actually a compile-time error, so wrap the faulty test in an...
authorVincent Pit <vince@profvince.com>
Tue, 6 Jan 2009 16:58:15 +0000 (17:58 +0100)
committerVincent Pit <vince@profvince.com>
Tue, 6 Jan 2009 16:58:15 +0000 (17:58 +0100)
t/29-localize-target.t

index 3e54d0ee36e32421b86093a2336f077d436be36d..5d23469adb1b554973dde9cefc7612213d9e0f64 100644 (file)
@@ -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]';
+ };
 }
 
 {