diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-11 23:52:41 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 06:19:34 -0700 |
| commit | a65cc145b2ce31d135006c2fb8e7b89e0843f3b4 (patch) | |
| tree | 272a323fcf3f26d9b2f073e56194d39ac7429307 /t | |
| parent | 230b3caa7e7f84ecf3fa68999603884d4b196166 (diff) | |
| download | perl-a65cc145b2ce31d135006c2fb8e7b89e0843f3b4.tar.gz | |
Teach ck_entersub_args_proto about non-GV names
Now ck_subr no longer needs to vivify GVs:
$ ./miniperl -e 'sub foo{} BEGIN { warn $::{foo} } foo(); BEGIN { warn $::{foo} }'
CODE(0x7fc98282ad98) at -e line 1.
CODE(0x7fc98282ad98) at -e line 1.
Previously it was like this:
$ ./miniperl -e 'sub foo{} BEGIN { warn $::{foo} } foo(); BEGIN { warn $::{foo} }'
CODE(0x7f8ef082ad98) at -e line 1.
*main::foo at -e line 1.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/symbolcache.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/symbolcache.t b/t/op/symbolcache.t index b3e567b0ca..2596ae6410 100644 --- a/t/op/symbolcache.t +++ b/t/op/symbolcache.t @@ -28,7 +28,7 @@ sub replaced { 'meth' } # simple removal sub removed2 { 24 } sub bound2 { removed2() } -undef $main::{removed2}; +{ no strict; undef *{"removed2"} } eval { bound2() }; like( $@, qr/Undefined subroutine &main::removed2 called/, 'function not bound' ); |