diff options
Diffstat (limited to 't/cmd/lexsub.t')
| -rw-r--r-- | t/cmd/lexsub.t | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/t/cmd/lexsub.t b/t/cmd/lexsub.t index 0b35964ebb..0732678307 100644 --- a/t/cmd/lexsub.t +++ b/t/cmd/lexsub.t @@ -5,7 +5,7 @@ BEGIN { require './test.pl'; *bar::is = *is; } -plan 14; +plan 13; { our sub foo { 42 } @@ -59,11 +59,10 @@ sub bar::c { 43 } } { our sub d; - sub d { 'd42' } sub bar::d { 'd43' } package bar; + sub d { 'd42' } { local $::TODO = ' '; - is d, 'd42', 'our sub foo; applies to subsequent sub foo {}'; + is eval { ::d },'d42', 'our sub foo; applies to subsequent sub foo {}'; } - is &d, 'd42', 'our sub foo; applies to subsequent sub foo {} (amper)'; } |