From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Mar 2002 01:06:53 +0000 (+0000)
Subject: Test tweak from Craig Berry.
X-Git-Tag: accepted/trunk/20130322.191538~27823
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6c6138478e8a64e245418ecd761aec9bc8d89ae1;p=platform%2Fupstream%2Fperl.git

Test tweak from Craig Berry.

p4raw-id: //depot/perl@14971
---

diff --git a/lib/Tie/File/t/15_pushpop.t b/lib/Tie/File/t/15_pushpop.t
index 79af19a..e57764b 100644
--- a/lib/Tie/File/t/15_pushpop.t
+++ b/lib/Tie/File/t/15_pushpop.t
@@ -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++;