This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Sync regcomp warn with reality.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 7 Jul 1999 13:38:02 +0000 (13:38 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 7 Jul 1999 13:38:02 +0000 (13:38 +0000)
p4raw-id: //depot/cfgperl@3649

t/pragma/warn/regcomp

index f67fafa..6545778 100644 (file)
@@ -33,16 +33,29 @@ Strange *+?{} on zero-length expression at - line 4.
 # regcomp.c
 use warning 'unsafe' ;
 $_ = "" ;
-/[:foo:]/;
+/[:alpha:]/;
 /[.bar.]/;
 /[=zog=]/;
+/[[:alpha:]]/;
+/[[.foo.]]/;
+/[[=bar=]]/;
+/[:zog:]/;
 no warning 'unsafe' ;
-/[a[:foo:]b]/;
-/[a[.bar.]b]/;
-/[a[=zog=]b]/;
+/[:alpha:]/;
+/[.foo.]/;
+/[=bar=]/;
+/[[:alpha:]]/;
+/[[.foo.]]/;
+/[[=bar=]]/;
+/[:zog:]/;
+/[[:zog:]]/;
 EXPECT
 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.
+Character class syntax [. .] is reserved for future extensions at - line 8.
+Character class syntax [= =] is reserved for future extensions at - line 9.
+Character class syntax [: :] belongs inside character classes at - line 10.
+Character class [:zog:] unknown at - line 19.