diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-03-27 14:32:00 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-27 13:53:31 +0000 |
| commit | cd84f5b283c99b286b4dbd0ab70732e43d1eb320 (patch) | |
| tree | b75878095f065a679c10ded7989e32dad059b7cb | |
| parent | 9c406a46272accd6941f5f21f6abc86cdd476f41 (diff) | |
| download | perl-cd84f5b283c99b286b4dbd0ab70732e43d1eb320.tar.gz | |
A warning wasn't turnable off
Message-ID: <20020327133200.A18945@rafael>
p4raw-id: //depot/perl@15547
| -rw-r--r-- | regcomp.c | 5 | ||||
| -rw-r--r-- | t/lib/warnings/regcomp | 15 |
2 files changed, 5 insertions, 15 deletions
@@ -3483,7 +3483,10 @@ S_checkposixcc(pTHX_ RExC_state_t *pRExC_state) while(*s && isALNUM(*s)) s++; if (*s && c == *s && s[1] == ']') { - vWARN3(s+2, "POSIX syntax [%c %c] belongs inside character classes", c, c); + if (ckWARN(WARN_REGEXP)) + vWARN3(s+2, + "POSIX syntax [%c %c] belongs inside character classes", + c, c); /* [[=foo=]] and [[.foo.]] are still future. */ if (POSIXCC_NOTYET(c)) { diff --git a/t/lib/warnings/regcomp b/t/lib/warnings/regcomp index db44ecabf8..e9a8d70a5d 100644 --- a/t/lib/warnings/regcomp +++ b/t/lib/warnings/regcomp @@ -20,7 +20,7 @@ /%.127s/: Unrecognized escape \\%c passed through [S_regatom] $x = '\m' ; /$x/ - POSIX syntax [%c %c] is reserved for future extensions [S_checkposixcc] + POSIX syntax [%c %c] belongs inside character classes [S_checkposixcc] Character class [:%.*s:] unknown [S_regpposixcc] @@ -62,15 +62,12 @@ use warnings 'regexp' ; $_ = "" ; /[:alpha:]/; /[:zog:]/; -/[[:zog:]]/; no warnings 'regexp' ; /[:alpha:]/; /[:zog:]/; -/[[:zog:]]/; EXPECT POSIX syntax [: :] belongs inside character classes in regex; marked by <-- HERE in m/[:alpha:] <-- HERE / at - line 5. POSIX syntax [: :] belongs inside character classes in regex; marked by <-- HERE in m/[:zog:] <-- HERE / at - line 6. -POSIX class [:zog:] unknown in regex; marked by <-- HERE in m/[[:zog:] <-- HERE ]/ ######## # regcomp.c [S_checkposixcc] # @@ -83,16 +80,6 @@ EXPECT POSIX syntax [. .] belongs inside character classes in regex; marked by <-- HERE in m/[.zog.] <-- HERE / at - line 5. POSIX syntax [. .] is reserved for future extensions in regex; marked by <-- HERE in m/[.zog.] <-- HERE / ######## -# regcomp.c [S_checkposixcc] -# -use warnings 'regexp' ; -$_ = "" ; -/[[.zog.]]/; -no warnings 'regexp' ; -/[[.zog.]]/; -EXPECT -POSIX syntax [. .] is reserved for future extensions in regex; marked by <-- HERE in m/[[.zog.] <-- HERE ]/ -######## # regcomp.c [S_regclass] $_ = ""; use warnings 'regexp' ; |