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 /t | |
| 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 't')
| -rw-r--r-- | t/lib/warnings/toke | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 73dd229a9e..7f7d84d696 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -744,7 +744,7 @@ EXPECT Unrecognized escape \q passed through at - line 4. ######## # toke.c -# 20020328 mjd@plover.com at behest of jfriedl@yahoo.com +# 20020328 mjd-perl-patch+@plover.com at behest of jfriedl@yahoo.com use warnings 'regexp'; "foo" =~ /foo/c; "foo" =~ /foo/cg; @@ -755,7 +755,7 @@ EXPECT Use of /c modifier is meaningless without /g at - line 4. ######## # toke.c -# 20020328 mjd@plover.com at behest of jfriedl@yahoo.com +# 20020328 mjd-perl-patch+@plover.com at behest of jfriedl@yahoo.com use warnings 'regexp'; $_ = "ab" ; s/ab/ab/c; @@ -766,3 +766,25 @@ s/ab/ab/cg; EXPECT Use of /c modifier is meaningless in s/// at - line 5. Use of /c modifier is meaningless in s/// at - line 6. +######## +-wa +# toke.c +# 20020414 mjd-perl-patch+@plover.com # -a flag should suppress these warnings +print "@F\n"; +EXPECT + +######## +-w +# toke.c +# 20020414 mjd-perl-patch+@plover.com # -a flag should suppress these warnings +print "@F\n"; +EXPECT +Possible unintended interpolation of @F in string at - line 4. +Name "main::F" used only once: possible typo at - line 4. +######## +-wa +# toke.c +# 20020414 mjd-perl-patch+@plover.com +EXPECT + + |