diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2002-04-14 20:30:26 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-15 04:21:14 +0000 |
| commit | d8c5566640fb9132fbfa47d3c76f472959a1dc29 (patch) | |
| tree | a0b3d449351ae61540619c710fd0b96615ea9542 /perl.c | |
| parent | 13368207c61bf85256527bd37792bbe86569946e (diff) | |
| download | perl-d8c5566640fb9132fbfa47d3c76f472959a1dc29.tar.gz | |
Re: [PATCH 5.7.3] Suppress warnings about @F when -a flag supplied
Message-Id: <20020415043026.11417.qmail@plover.com>
p4raw-id: //depot/perl@15917
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3472,6 +3472,10 @@ 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 |