Re: Named-capture regex syntax

[p5sagit/p5-mst-13.2.git] / doio.c

diff --git a/doio.c b/doio.c
index 88afb1d..e0a1fc5 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -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)) {