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 | |
| 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
| -rw-r--r-- | perl.c | 12 | ||||
| -rw-r--r-- | t/lib/warnings/toke | 8 |
2 files changed, 16 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 diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 7f7d84d696..d2695d6b26 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -787,4 +787,12 @@ Name "main::F" used only once: possible typo at - line 4. # 20020414 mjd-perl-patch+@plover.com EXPECT +######## +# toke.c +# 20020414 mjd-perl-patch+@plover.com +# In 5.7.3, this emitted "Possible unintended interpolation" warnings +use warnings 'ambiguous'; +$s = "(@-)(@+)"; +EXPECT + |