diff options
Diffstat (limited to 'lib/Tie')
-rw-r--r-- | lib/Tie/File/t/15_pushpop.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Tie/File/t/15_pushpop.t b/lib/Tie/File/t/15_pushpop.t index 79af19a7d5..e57764b5bf 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++; |