diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2002-03-28 00:04:40 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 13:22:25 +0000 |
| commit | 4ac733c9bd1b714b72e7aa46038b74060cad7c98 (patch) | |
| tree | 026a810f604582f9412f8a205e73a07eff2a646b /t/lib | |
| parent | aa5485d1a9a478e69a09157a56deb9d7c27fd45b (diff) | |
| download | perl-4ac733c9bd1b714b72e7aa46038b74060cad7c98.tar.gz | |
warning at use of /c modifier without /g modifier
Message-ID: <20020328100440.22081.qmail@plover.com>
p4raw-id: //depot/perl@15579
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/toke | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 01e31f8612..af67277a3a 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -103,7 +103,9 @@ toke.c AOK $a = 0047777777777 ; dump() better written as CORE::dump() - + + Use of /c modifier is meaningless without /g + Mandatory Warnings ------------------ Use of "%s" without parentheses is ambiguous [check_uni] @@ -738,3 +740,22 @@ no warnings 'misc'; "bar" =~ /\_/; EXPECT Unrecognized escape \q passed through at - line 4. +######## +# toke.c +# 20020328 mjd@plover.com at behest of jfriedl@yahoo.com +use warnings 'regexp'; +"foo" =~ /foo/c; +no warnings 'regexp'; +"foo" =~ /foo/c; +EXPECT +Use of /c modifier is meaningless without /g at - line 4. +######## +# toke.c +# 20020328 mjd@plover.com at behest of jfriedl@yahoo.com +use warnings 'regexp'; +$_ = "ab" ; +s/ab/ab/c; +no warnings 'regexp'; +s/ab/ab/c; +EXPECT +Use of /c modifier is meaningless without /g at - line 5. |