From: Vincent Pit 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/?a=commitdiff_plain;h=99a180a4963343a5ce0a7336e6ea54e47630d099;p=perl%2Fmodules%2FVariable-Magic.git 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;