X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/eb06eac93f0120092363c6c7ba87bb7054e76844..48ea5431341d40ba66facb878e7cd54d75697ace:/doio.c

diff --git a/doio.c b/doio.c
index 2f660cc..526e1b5 100644
--- a/doio.c
+++ b/doio.c
@@ -1241,7 +1241,9 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
 	    else {
 		assert((char *)result == tmps);
 		Perl_ck_warner_d(aTHX_ packWARN(WARN_UTF8),
-				 "Wide character in %s", OP_DESC(PL_op));
+				 "Wide character in %s",
+				   PL_op ? OP_DESC(PL_op) : "print"
+				);
 	    }
 	}
 	/* To detect whether the process is about to overstep its