diff options
-rw-r--r-- | t/cmd/lexsub.t | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/t/cmd/lexsub.t b/t/cmd/lexsub.t index 404f7dd564..36689e7e67 100644 --- a/t/cmd/lexsub.t +++ b/t/cmd/lexsub.t @@ -160,16 +160,14 @@ sub sc { 43 } { state sub sc; eval{sc}; -::on; - like $@, qr/^Undefined subroutine &sb called at /, + like $@, qr/^Undefined subroutine &sc called at /, 'state sub foo; makes no lex alias for existing sub'; eval{&sc}; - like $@, qr/^Undefined subroutine &sb called at /, + like $@, qr/^Undefined subroutine &sc called at /, 'state sub foo; makes no lex alias for existing sub (amper)'; eval{do sc()}; - like $@, qr/^Undefined subroutine &sb called at /, + like $@, qr/^Undefined subroutine &sc called at /, 'state sub foo; makes no lex alias for existing sub (do)'; -::off; } package main; { |