diff options
Diffstat (limited to 't/pragma/warn/regcomp')
| -rw-r--r-- | t/pragma/warn/regcomp | 26 |
1 files changed, 11 insertions, 15 deletions
diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp index 52a163a2f5..0f48c67f92 100644 --- a/t/pragma/warn/regcomp +++ b/t/pragma/warn/regcomp @@ -8,9 +8,6 @@ /(?=a)?/ - Character class syntax [: :] is reserved for future extensions - /[a[:xyz:]b]/ - Character class syntax [. .] is reserved for future extensions Character class syntax [= =] is reserved for future extensions @@ -32,22 +29,21 @@ Strange *+?{} on zero-length expression at - line 4. # regcomp.c use warning 'unsafe' ; $_ = "" ; -/[a[:xyz:]b]/; /[a[.xyz.]b]/; /[a[=xyz=]b]/; EXPECT -Character class syntax [: :] is reserved for future extensions at - line 4. -Character class syntax [. .] is reserved for future extensions at - line 5. -Character class syntax [= =] is reserved for future extensions at - line 6. +Character class syntax [. .] is reserved for future extensions at - line 4. +Character class syntax [= =] is reserved for future extensions at - line 5. ######## # regcomp.c -use warning 'unsafe' ; -# use utf8 ; # Note this line should be uncommented when utf8 gets fixed. +use warning 'unsafe' ; $_ = "" ; -/[a[:xyz:]b]/; -/[a[.xyz.]b]/; -/[a[=xyz=]b]/; +/[:foo:]/; +/[.bar.]/; +/[=zog=]/; EXPECT -Character class syntax [: :] is reserved for future extensions at - line 5. -Character class syntax [. .] is reserved for future extensions at - line 6. -Character class syntax [= =] is reserved for future extensions at - line 7. +Character class syntax [: :] belongs inside character classes at - line 4. +Character class syntax [. .] belongs inside character classes at - line 5. +Character class syntax [. .] is reserved for future extensions at - line 5. +Character class syntax [= =] belongs inside character classes at - line 6. +Character class syntax [= =] is reserved for future extensions at - line 6. |