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 /pp_sys.c | |
| 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 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1565,8 +1565,8 @@ PP(pp_sysread) length = -1; } if (length < 0) { - if (IoTYPE(io) == '>' || IoIFP(io) == PerlIO_stdout() - || IoIFP(io) == PerlIO_stderr()) + if ((IoTYPE(io) == '>' || IoIFP(io) == PerlIO_stdout() + || IoIFP(io) == PerlIO_stderr()) && ckWARN(WARN_IO)) { SV* sv = sv_newmortal(); gv_efullname3(sv, gv, Nullch); |