Make a temporary copy of the input buffer in pp_send, so that send

and syswrite don't gratuitously upgrade their input to UTF8

p4raw-id: //depot/perl@22471

1 files changed, 5 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index d6f095b3c9..ebc85d3331 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1820,7 +1820,11 @@ PP(pp_send)
     }
 
     if (PerlIO_isutf8(IoIFP(io))) {
-	buffer = SvPVutf8(bufsv, blen);
+	if (!SvUTF8(bufsv)) {
+	    bufsv = sv_2mortal(newSVsv(bufsv));
+	    buffer = sv_2pvutf8(bufsv, &blen);
+	} else
+	    buffer = SvPV(bufsv, blen);
     }
     else {
 	 if (DO_UTF8(bufsv)) {