From 6c6138478e8a64e245418ecd761aec9bc8d89ae1 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 4 Mar 2002 01:06:53 +0000 Subject: [PATCH] Test tweak from Craig Berry. p4raw-id: //depot/perl@14971 --- lib/Tie/File/t/15_pushpop.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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++; -- 2.7.4