This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test tweak from Craig Berry.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Mar 2002 01:06:53 +0000 (01:06 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Mar 2002 01:06:53 +0000 (01:06 +0000)
p4raw-id: //depot/perl@14971

lib/Tie/File/t/15_pushpop.t

index 79af19a..e57764b 100644 (file)
@@ -40,7 +40,7 @@ print $n == 5 ? "ok $N\n" : "not ok $N # size is $n, should be 5\n";
 $N++;
 
 # Trivial push
-$n = push @a;
+$n = push(@a, ());
 check_contents("$ {data}rec3$/rec4$/");
 print $n == 5 ? "ok $N\n" : "not ok $N # size is $n, should be 5\n";
 $N++;
@@ -76,7 +76,7 @@ print $n == 5 ? "ok $N\n" : "not ok $N # size is $n, should be 5\n";
 $N++;
 
 # Trivial unshift
-$n = unshift @a;
+$n = unshift(@a, ());
 check_contents("rec3$/rec4$/$data");
 print $n == 5 ? "ok $N\n" : "not ok $N # size is $n, should be 5\n";
 $N++;