diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-09-25 23:58:12 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-02 13:18:01 +0000 |
| commit | 97828cef4d4cd22b548b8ec430d2e0e28ea8ae8c (patch) | |
| tree | 2817e7bfaa6276aeb08a1f299c768a305f24d9fd /doio.c | |
| parent | dd2155a49b710f23bc6d72169e5b1d71d8b3aa03 (diff) | |
| download | perl-97828cef4d4cd22b548b8ec430d2e0e28ea8ae8c.tar.gz | |
Re: perlio bug?
Message-Id: <20020925215812.3b7adb0d.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@17954
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -536,12 +536,14 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, if ((IoTYPE(io) == IoTYPE_RDONLY) && (fp == PerlIO_stdout() || fp == PerlIO_stderr())) { Perl_warner(aTHX_ packWARN(WARN_IO), - "Filehandle STD%s opened only for input", - (fp == PerlIO_stdout()) ? "OUT" : "ERR"); + "Filehandle STD%s reopened as %s only for input", + ((fp == PerlIO_stdout()) ? "OUT" : "ERR"), + GvENAME(gv)); } else if ((IoTYPE(io) == IoTYPE_WRONLY) && fp == PerlIO_stdin()) { Perl_warner(aTHX_ packWARN(WARN_IO), - "Filehandle STDIN opened only for output"); + "Filehandle STDIN reopened as %s only for output", + GvENAME(gv)); } } |