diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-07-08 14:28:22 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:00 -0700 |
| commit | 251a11d5449ff64382e2f647582ee2cc4e3404e6 (patch) | |
| tree | a5f127d8830b8e1257c3442a0a4636bda99075d3 | |
| parent | 09a30bc412a109bcf4b748fa122483d380fcc8b6 (diff) | |
| download | perl-251a11d5449ff64382e2f647582ee2cc4e3404e6.tar.gz | |
lexsub.t: Fix some tests
I got this working a few commits ago, but the tests mentioned the
wrong sub name.
| -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; { |