diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-02 16:03:29 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-03 13:11:46 +0000 |
| commit | 936edb8bce14c9708bc6198559047de5d7e6af47 (patch) | |
| tree | 56418e45ab38e385bc4cd7ab1edf78f3c4007654 /t/pragma/warn/op | |
| parent | 31f187ae5b4b937f1c4319a89e6fd6f99121320a (diff) | |
| download | perl-936edb8bce14c9708bc6198559047de5d7e6af47.tar.gz | |
Re: [ID 20010331.003] new misc warning for push(@x), unshift(@x)
Message-ID: <20010402150329.A6636@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9532
Diffstat (limited to 't/pragma/warn/op')
| -rw-r--r-- | t/pragma/warn/op | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/pragma/warn/op b/t/pragma/warn/op index f3c0548e57..ab2124ea77 100644 --- a/t/pragma/warn/op +++ b/t/pragma/warn/op @@ -884,3 +884,15 @@ in begin in mainline in end in end +######## +# op.c +my @x; +use warnings 'misc' ; +push(@x); +unshift(@x); +no warnings 'misc' ; +push(@x); +unshift(@x); +EXPECT +Useless use of push with no arguments at - line 4. +Useless use of unshift with no arguments at - line 5. |