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