diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-09-06 02:39:11 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 1999-09-06 02:39:11 +0000 |
| commit | 424a8fe95d507998fe8750793da1b35bd6d7074b (patch) | |
| tree | 2e7697b05952df05643698777bf236009c43d158 /t/pragma/warn/regcomp | |
| parent | f0585323684fd5b018ff6d479ece5c134dabef3e (diff) | |
| parent | 0bf7eb25e9e238046abce47d15e2fa3d10558a02 (diff) | |
| download | perl-424a8fe95d507998fe8750793da1b35bd6d7074b.tar.gz | |
Integrate mainline 5.05_61
p4raw-id: //depot/vmsperl@4084
Diffstat (limited to 't/pragma/warn/regcomp')
| -rw-r--r-- | t/pragma/warn/regcomp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp index 6545778a38..6aa9fa629e 100644 --- a/t/pragma/warn/regcomp +++ b/t/pragma/warn/regcomp @@ -13,25 +13,25 @@ __END__ # regcomp.c -use warning 'unsafe' ; +use warnings 'unsafe' ; my $a = "ABC123" ; $a =~ /(?=a)*/ ; -no warning 'unsafe' ; +no warnings 'unsafe' ; $a =~ /(?=a)*/ ; EXPECT (?=a)* matches null string many times at - line 4. ######## # regcomp.c -use warning 'unsafe' ; +use warnings 'unsafe' ; $_ = "" ; /(?=a)?/; -no warning 'unsafe' ; +no warnings 'unsafe' ; /(?=a)?/; EXPECT Strange *+?{} on zero-length expression at - line 4. ######## # regcomp.c -use warning 'unsafe' ; +use warnings 'unsafe' ; $_ = "" ; /[:alpha:]/; /[.bar.]/; @@ -40,7 +40,7 @@ $_ = "" ; /[[.foo.]]/; /[[=bar=]]/; /[:zog:]/; -no warning 'unsafe' ; +no warnings 'unsafe' ; /[:alpha:]/; /[.foo.]/; /[=bar=]/; |