From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 23 Apr 2001 23:43:35 +0000 (+0000)
Subject: Make the "STD* opened only for ..." errors more consistent.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c5e2d97949cf35ded99f9b1a5292d32c8bb1dfa4;p=p5sagit%2Fp5-mst-13.2.git

Make the "STD* opened only for ..." errors more consistent.

p4raw-id: //depot/perl@9802
---

diff --git a/doio.c b/doio.c
index f65f286..d61d533 100644
--- a/doio.c
+++ b/doio.c
@@ -504,11 +504,13 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
     if (ckWARN(WARN_IO)) {
 	if ((IoTYPE(io) == IoTYPE_RDONLY) &&
 	    (fp == PerlIO_stdout() || fp == PerlIO_stderr())) {
-		Perl_warner(aTHX_ WARN_IO, "'std%s' opened only for input",
-				(fp == PerlIO_stdout()) ? "out" : "err");
+		Perl_warner(aTHX_ WARN_IO,
+			    "Filehandle STD%s opened only for input",
+			    (fp == PerlIO_stdout()) ? "OUT" : "ERR");
 	}
 	else if ((IoTYPE(io) == IoTYPE_WRONLY) && fp == PerlIO_stdin()) {
-		Perl_warner(aTHX_ WARN_IO, "'stdin' opened only for output");
+		Perl_warner(aTHX_ WARN_IO,
+			    "Filehandle STDIN opened only for output");
 	}
     }