Change 14971: Test tweak from Craig Berry.

[Jarkko Hietaniemi]

Change 14971 by jhi@alpha on 2002/03/04 01:06:53

        Test tweak from Craig Berry.

Affected files ...

.... //depot/perl/lib/Tie/File/t/15_pushpop.t#2 edit

Differences ...

==== //depot/perl/lib/Tie/File/t/15_pushpop.t#2 (text) ====
Index: perl/lib/Tie/File/t/15_pushpop.t
--- perl/lib/Tie/File/t/15_pushpop.t.~1~        Sun Mar  3 18:15:07 2002
+++ perl/lib/Tie/File/t/15_pushpop.t    Sun Mar  3 18:15:07 2002
@@ -40,7 +40,7 @@
 $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 @@
 $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++;
End of Patch.