diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2002-04-01 08:22:01 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 17:56:27 +0000 |
| commit | f34840d8d697d9f8be532dea1352cc0aeefc696b (patch) | |
| tree | b4c94b880655adcbe36cfa7ce857f896f3c13831 /t/lib/warnings/op | |
| parent | e6763d176db5d14f6f7be1cd3c07c1d13323c7ec (diff) | |
| download | perl-f34840d8d697d9f8be532dea1352cc0aeefc696b.tar.gz | |
warning for split(/.../g, ...);
Message-ID: <20020401182201.21189.qmail@plover.com>
p4raw-id: //depot/perl@15663
Diffstat (limited to 't/lib/warnings/op')
| -rw-r--r-- | t/lib/warnings/op | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op index ff00dcd2ed..7833562273 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -111,6 +111,8 @@ Package `%s' not found (did you use the incorrect case?) + Use of /g modifier is meaningless in split + Mandatory Warnings ------------------ Prototype mismatch: [cv_ckproto] @@ -952,3 +954,12 @@ EXPECT Use of "package" with no arguments is deprecated at - line 3. Global symbol "BEGIN" requires explicit package name at - line 4. BEGIN not safe after errors--compilation aborted at - line 4. +######## +# op.c +# 20020401 mjd@plover.com at suggestion of jfriedl@yahoo.com +use warnings 'regexp'; +split /blah/g, "blah"; +no warnings 'regexp'; +split /blah/g, "blah"; +EXPECT +Use of /g modifier is meaningless in split at - line 4. |