X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F22-len.t;h=a35375fb21a1dcbcae9775d82b0273a34707dc03;hb=9313f2dc8e1f534131fee3e6235f4a533396a0ac;hp=01a06dd932ccc8ae70f34f3c838ccd853f56c5dc;hpb=4488b5731d76409b5901b194129e3475c2fb086c;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;