From: Vincent Pit <vince@profvince.com>
Date: Fri, 17 Feb 2012 18:15:35 +0000 (+0100)
Subject: In t/22-len.t, localize the wizard for strings to the SKIP block
X-Git-Tag: v0.48~5
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=commitdiff_plain;h=99a180a4963343a5ce0a7336e6ea54e47630d099

In t/22-len.t, localize the wizard for strings to the SKIP block
---

diff --git a/t/22-len.t b/t/22-len.t
index a35375f..d4f59d1 100644
--- a/t/22-len.t
+++ b/t/22-len.t
@@ -70,8 +70,8 @@ SKIP: {
  $c = 0;
  $n = 1 + int rand 1000;
  # length magic on scalars needs also get magic to be triggered.
- $wiz = wizard get => sub { return 'anything' },
-               len => sub { $d = $_[2]; ++$c; return $n };
+ my $wiz = wizard get => sub { return 'anything' },
+                  len => sub { $d = $_[2]; ++$c; return $n };
 
  my $x = 6789;