diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 1999-09-05 16:11:08 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-06 18:52:10 +0000 |
| commit | 767a6a262e9f71124cfc78e5c518e24b20e6fd99 (patch) | |
| tree | 8ab9c02a897ba7f1aa1d41ffdf8c684c794fb094 /t/pragma/warn/op | |
| parent | 3dbf192b2cd968c3b06108d76689ba36682d6f0e (diff) | |
| download | perl-767a6a262e9f71124cfc78e5c518e24b20e6fd99.tar.gz | |
Another patch for Lexical Warnings
Message-ID: <5104D4DBC598D211B5FE0000F8FE7EB202D49BAB@mbtlipnt02.btlabs.bt.co.uk>
p4raw-id: //depot/perl@4088
Diffstat (limited to 't/pragma/warn/op')
| -rw-r--r-- | t/pragma/warn/op | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/pragma/warn/op b/t/pragma/warn/op index 07ec67c1a9..e50420a8f6 100644 --- a/t/pragma/warn/op +++ b/t/pragma/warn/op @@ -99,6 +99,10 @@ /---/ should probably be written as "---" join(/---/, @foo); + %s() called too early to check prototype [Perl_peep] + fred() ; sub fred ($$) {} + + Mandatory Warnings ------------------ Prototype mismatch: [cv_ckproto] @@ -794,3 +798,13 @@ use warnings 'syntax' ; join /---/, 'x', 'y', 'z'; EXPECT /---/ should probably be written as "---" at - line 3. +######## +# op.c [Perl_peep] +use warnings 'unsafe' ; +fred() ; +sub fred ($$) {} +no warnings 'unsafe' ; +joe() ; +sub joe ($$) {} +EXPECT +main::fred() called too early to check prototype at - line 3. |