X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F22-len.t;fp=t%2F22-len.t;h=a35375fb21a1dcbcae9775d82b0273a34707dc03;hb=3bc98bdbdb230943e7fb3135e325f10013acac2d;hp=01a06dd932ccc8ae70f34f3c838ccd853f56c5dc;hpb=159e8ad7c747edb4a25db2f2673bbe143531f347;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/22-len.t b/t/22-len.t index 01a06dd..a35375f 100644 --- 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; 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; $c = 0; cast @a, $wiz;