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

[perl/modules/Variable-Magic.git] / t / 22-len.t

diff --git a/t/22-len.t b/t/22-len.t
index 01a06dd932ccc8ae70f34f3c838ccd853f56c5dc..d4f59d15fd9cad882626e783b5fa0d9d1001b689 100644 (file)
--- a/t/22-len.t
+++ b/t/22-len.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 39 + (2 * 2 + 1);
 
-use Variable::Magic qw/wizard cast dispell VMG_COMPAT_SCALAR_LENGTH_NOLEN/;
+use Variable::Magic qw<wizard cast dispell VMG_COMPAT_SCALAR_LENGTH_NOLEN>;
 
 use lib 't/lib';
 use Variable::Magic::TestValue;
@@ -17,7 +17,7 @@ my $d;
 my $wiz = wizard len => sub { $d = $_[2]; ++$c; return $n };
 is $c, 0, 'len: wizard() doesn\'t trigger magic';
 
-my @a = qw/a b c/;
+my @a = qw<a b c>;
 
 $c = 0;
 cast @a, $wiz;
@@ -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;