Ooops. Fix unitialised variable

p4raw-id: //depot/perl@23705

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index edb69c29af..356f6f2a8f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1604,6 +1604,7 @@ PP(pp_sysread)
 	buffer = SvPVutf8_force(bufsv, blen);
 	/* UTF-8 may not have been set if they are all low bytes */
 	SvUTF8_on(bufsv);
+	buffer_utf8 = 0;
     }
     else {
 	buffer = SvPV_force(bufsv, blen);