This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
perldelta up to abf9167d
[perl5.git]
/
doio.c
diff --git
a/doio.c
b/doio.c
index
5f57b38
..
526e1b5
100644
(file)
--- 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 print");
+ "Wide character in %s",
+ PL_op ? OP_DESC(PL_op) : "print"
+ );
}
}
/* To detect whether the process is about to overstep its