X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F31-array.t;h=432fc5d887ad161c01373e1f117854b4027038fc;hb=fd2b4b28517f7f12044530f6c3ceca07181fba70;hp=b98deccb83ebf7d36c0f1d23ec92fc632f7a7492;hpb=0c555be0dab6fe6582f787cc03e82fd460bcd59c;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/31-array.t b/t/31-array.t
index b98decc..432fc5d 100644
--- a/t/31-array.t
+++ b/t/31-array.t
@@ -48,7 +48,8 @@ is $b, 'd', 'array: delete correctly';
 $b = check { @a } { len => 1 }, 'length @';
 is $b, 3, 'array: length @ correctly';
 
-$b = check { $#a } { len => 1 }, 'length $#';
+# $b has to be set inside the block for the test to pass on 5.8.3 and lower
+check { $b = $#a } { len => 1 }, 'length $#';
 is $b, 2, 'array: length $# correctly';
 
 check { push @a, 'x'; () }