diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-01-12 13:17:59 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-12 13:17:59 -0800 |
| commit | e5e154d26bf2e9766b86a93f4af780f8b005349e (patch) | |
| tree | 89ded710f86501579f9a209c7728b5ba28c1bfe2 /t | |
| parent | 3f12cff414d1c6ec878a7e1a4ed270a421a8a75e (diff) | |
| download | perl-e5e154d26bf2e9766b86a93f4af780f8b005349e.tar.gz | |
Make -t, -T and -B with a handle pop it off the stack
This is something I broke carelessly with commit 094a3eec8.
No, this does not fix bug #77388.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/filetest_stack_ok.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/filetest_stack_ok.t b/t/op/filetest_stack_ok.t index 3c212b16fa..dba5f6549d 100644 --- a/t/op/filetest_stack_ok.t +++ b/t/op/filetest_stack_ok.t @@ -12,10 +12,11 @@ BEGIN { my @ops = split //, 'rwxoRWXOezsfdlpSbctugkTMBAC'; -plan( tests => @ops * 3 ); +plan( tests => @ops * 4 ); for my $op (@ops) { ok( 1 == @{ [ eval "-$op 'TEST'" ] }, "-$op returns single value" ); + ok( 1 == @{ [ eval "-$op *TEST" ] }, "-$op *gv returns single value" ); my $count = 0; my $t; |