diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-24 10:16:07 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-24 10:16:07 +0000 |
| commit | 150d06de2e4cba0da08555d83988a89acd541d70 (patch) | |
| tree | b44b56424cdc6155b47fbe0bf2cb94ae554a8168 /doio.c | |
| parent | 99dd2394ae4d2f743703d286bac046c67fde99af (diff) | |
| download | perl-150d06de2e4cba0da08555d83988a89acd541d70.tar.gz | |
Revert change #29098 (that introduced a new warning,
"Variable length character upgraded in print")
p4raw-link: @29098 on //depot/perl: f46fa3876d9373760a3cd5dd806719154ff55bcb
p4raw-id: //depot/perl@29372
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -1225,14 +1225,9 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp) tmps = SvPV_const(sv, len); if (PerlIO_isutf8(fp)) { if (!SvUTF8(sv)) { - const STRLEN origlen = len; /* We don't modify the original scalar. */ tmpbuf = bytes_to_utf8((const U8*) tmps, &len); tmps = (char *) tmpbuf; - if (ckWARN(WARN_UTF8) && len != origlen) { - Perl_warner(aTHX_ packWARN(WARN_UTF8), - "Variable length character upgraded in print"); - } } } else if (DO_UTF8(sv)) { |