diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-07 10:33:38 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-07 10:33:38 +0000 |
| commit | 66e4e5d58b6f1a43b01a82c3d198f3a5add40b57 (patch) | |
| tree | 5dd1c73d5f2a90419ada9a5416d04443f259011b /perl.c | |
| parent | 82d8f8347aac1265a123c7171e3613e510568391 (diff) | |
| download | perl-66e4e5d58b6f1a43b01a82c3d198f3a5add40b57.tar.gz | |
Avoid to load the *+ and *- globs too early.
To silence spurious interpolation warnings, merely
create the stash entry for them. Ensure that the
re::Tie::Hash::NamedCapture module is always loaded
when we have created the tied hashes %+ and %-.
Revert change #30483, which is now unnecessary.
p4raw-link: @30483 on //depot/perl: 73f68b39467596f862aade4f4b46d6061aa98bd3
p4raw-id: //depot/perl@30490
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -4722,8 +4722,10 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register (void) get_av("main::F", TRUE | GV_ADDMULTI); } /* touch @- and @+ arrays to prevent spurious warnings 20020415 MJD */ - (void) get_av("main::-", TRUE | GV_ADDMULTI); - (void) get_av("main::+", TRUE | GV_ADDMULTI); + /* (but don't load the glob, since that requires loading + * re::Tie::Hash::NamedCapture, and miniperl can't do that */ + (void) hv_fetch(PL_defstash, "-", 1, GV_ADDMULTI); + (void) hv_fetch(PL_defstash, "+", 1, GV_ADDMULTI); } STATIC void |