X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=blobdiff_plain;f=t%2F22-len.t;h=d4f59d15fd9cad882626e783b5fa0d9d1001b689;hp=a35375fb21a1dcbcae9775d82b0273a34707dc03;hb=99a180a4963343a5ce0a7336e6ea54e47630d099;hpb=b0d725bd65b94259e76048f864c972d9b70aac6b

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;