diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-06 00:10:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-06 00:10:40 +0000 |
| commit | eb6e2d6f1e269264d7937d1be23cbbe0b6820902 (patch) | |
| tree | 35c59e04b4db7af027ae8dd6addaada967b4b1b6 /t/pragma/warn | |
| parent | 98627ae8f09f88a753760c651828da353f8c4989 (diff) | |
| download | perl-eb6e2d6f1e269264d7937d1be23cbbe0b6820902.tar.gz | |
optional warning on join(/foo/...) (reworked suggested patch
by Mark-Jason Dominus <mjd@plover.com>)
p4raw-id: //depot/perl@4083
Diffstat (limited to 't/pragma/warn')
| -rw-r--r-- | t/pragma/warn/op | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/t/pragma/warn/op b/t/pragma/warn/op index f6e5e14cad..07ec67c1a9 100644 --- a/t/pragma/warn/op +++ b/t/pragma/warn/op @@ -95,6 +95,9 @@ defined(%hash) is deprecated (Maybe you should just omit the defined()?) my %h ; defined %h ; + + /---/ should probably be written as "---" + join(/---/, @foo); Mandatory Warnings ------------------ @@ -107,8 +110,6 @@ oops: oopsAV [oopsAV] TODO oops: oopsHV [oopsHV] TODO - - __END__ # op.c @@ -787,3 +788,9 @@ EXPECT Prototype mismatch: sub main::fred () vs ($) at - line 4. Prototype mismatch: sub main::freD () vs ($) at - line 11. Prototype mismatch: sub main::FRED () vs ($) at - line 14. +######## +# op.c +use warnings 'syntax' ; +join /---/, 'x', 'y', 'z'; +EXPECT +/---/ should probably be written as "---" at - line 3. |