X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doio.c;h=0309e2a4c89b182e91a324a20353a488a150c10a;hb=f0b5ba41df93ba6703cb6968a5cc3fad069c7ad7;hp=e8ee679f5246c4b4e68622952bb9c83863da765f;hpb=dd531b3b18052c3e70d0cb325e89704d77851a3f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doio.c b/doio.c
index e8ee679..0309e2a 100644
--- a/doio.c
+++ b/doio.c
@@ -174,7 +174,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	     IoTYPE(io) = IoTYPE_RDWR;
 	     break;
 	}
-	writing = (result > 0);
+	writing = (result != O_RDONLY);
 
 	if (result == O_RDONLY) {
 	    mode[ix++] = 'r';
@@ -1222,7 +1222,9 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
 		sv_utf8_upgrade(sv = sv_mortalcopy(sv));
 	}
 	else if (DO_UTF8(sv)) {
-	    if (!sv_utf8_downgrade((sv = sv_mortalcopy(sv)), TRUE)) {
+	    if (!sv_utf8_downgrade((sv = sv_mortalcopy(sv)), TRUE)
+		&& ckWARN(WARN_UTF8))
+	    {
 		Perl_warner(aTHX_ WARN_UTF8, "Wide character in print");
 	    }
 	}