diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2002-04-14 22:41:52 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-15 12:37:04 +0000 |
| commit | 2710853f89981101efd1c81d1b1394f8120c34e7 (patch) | |
| tree | 6c5cac3bc5fcabad8fe1be2271e986509717657f /perl.c | |
| parent | ec18bc927e5ed31b399ed88fe24d05c0da6d0d08 (diff) | |
| download | perl-2710853f89981101efd1c81d1b1394f8120c34e7.tar.gz | |
Supporess spurious warnings for @+ and and @-
Message-ID: <20020415064152.16958.qmail@plover.com>
p4raw-id: //depot/perl@15921
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -3472,10 +3472,6 @@ Perl_init_argv_symbols(pTHX_ register int argc, register char **argv) (void)sv_utf8_decode(sv); } } - - if (PL_minus_a) { - (void) get_av("main::F", TRUE | GV_ADDMULTI); - } } #ifdef HAS_PROCSELFEXE @@ -3578,6 +3574,14 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid()); SvREADONLY_on(GvSV(tmpgv)); } + + /* touch @F array to prevent spurious warnings 20020415 MJD */ + if (PL_minus_a) { + (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); } STATIC void |