diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-14 22:08:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-14 22:08:22 +0000 |
| commit | 1028017ab8b9674cf749da3584eec9f032360d33 (patch) | |
| tree | 9d45adc219fe29d5568c6d303fbe82507de3629a /t/pragma/warn | |
| parent | 73b437c8b23cd73848b265b0c5a0c71d47dc6532 (diff) | |
| download | perl-1028017ab8b9674cf749da3584eec9f032360d33.tar.gz | |
Warn inside character classes about unknown backslash escapes
(that are not caught earlier because of being completely unknown,
such as \m), such as \z (because they make do sense inside regexen,
but not inside character classes).
p4raw-id: //depot/cfgperl@4380
Diffstat (limited to 't/pragma/warn')
| -rw-r--r-- | t/pragma/warn/regcomp | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp index 88909626db..92b8208a65 100644 --- a/t/pragma/warn/regcomp +++ b/t/pragma/warn/regcomp @@ -19,6 +19,10 @@ /%.127s/: false [] range \"%*.*s\" in regexp [S_regclassutf8] + /%.127s/: Unrecognized escape \\%c in character class passed through" [S_regclass] + + /%.127s/: Unrecognized escape \\%c in character class passed through" [S_regclassutf8] + __END__ # regcomp.c [S_regpiece] use warnings 'unsafe' ; @@ -40,8 +44,9 @@ Strange *+?{} on zero-length expression at - line 4. ######## # regcomp.c [S_regatom] use warnings 'unsafe' ; -$a =~ /\m/ ; +$a =~ /a\mb\b/ ; no warnings 'unsafe' ; +$a =~ /a\mb\b/ ; EXPECT Unrecognized escape \m passed through at - line 3. ######## @@ -139,3 +144,11 @@ EXPECT /[[:digit:]-b]/: false [] range "[:digit:]-" in regexp at - line 11. /[[:alpha:]-[:digit:]]/: false [] range "[:alpha:]-" in regexp at - line 12. /[[:digit:]-[:alpha:]]/: false [] range "[:digit:]-" in regexp at - line 13. +######## +# regcomp.c [S_regclass S_regclassutf8] +use warnings 'unsafe' ; +$a =~ /[a\zb]/ ; +no warnings 'unsafe' ; +$a =~ /[a\zb]/ ; +EXPECT +/[a\zb]/: Unrecognized escape \z in character class passed through at - line 3. |