# regcomp.c
use warning 'unsafe' ;
$_ = "" ;
- /[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.
- ########
- # regcomp.c
- use warning 'unsafe' ;
- $_ = "" ;
-/[a[:xyz:]b]/;
-/[a[.xyz.]b]/;
-/[a[=xyz=]b]/;
+/[:foo:]/;
+/[.bar.]/;
+/[=zog=]/;
+ no warning 'unsafe' ;
-/[a[:xyz:]b]/;
-/[a[.xyz.]b]/;
-/[a[=xyz=]b]/;
++/[a[:foo:]b]/;
++/[a[.bar.]b]/;
++/[a[=zog=]b]/;
EXPECT
-Character class syntax [: :] is reserved for future extensions at - line 4.
+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.
-########
-# regcomp.c
-use warning 'unsafe' ;
-# use utf8 ; # Note this line should be uncommented when utf8 gets fixed.
-$_ = "" ;
-/[a[:xyz:]b]/;
-/[a[.xyz.]b]/;
-/[a[=xyz=]b]/;
-no warning 'unsafe' ;
-/[a[:xyz:]b]/;
-/[a[.xyz.]b]/;
-/[a[=xyz=]b]/;
-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.