From 83c555564918110c20f99f55c77d9dfc27f217fb Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 16 Sep 2010 14:07:50 +0200 Subject: Fix warn to respect utf8-encoded scalars [perl #45549] --- util.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'util.c') diff --git a/util.c b/util.c index 1809f707af..2ab14d71ed 100644 --- a/util.c +++ b/util.c @@ -1399,10 +1399,8 @@ Perl_write_to_stderr(pTHX_ SV* msv) dSAVED_ERRNO; #endif PerlIO * const serr = Perl_error_log; - STRLEN msglen; - const char* message = SvPVx_const(msv, msglen); - PERL_WRITE_MSG_TO_CONSOLE(serr, message, msglen); + do_print(msv, serr); (void)PerlIO_flush(serr); #ifdef USE_SFIO RESTORE_ERRNO; -- cgit v1.2.1