Re: [ID 20010528.004] dual bug under utf8: $@ has UTF8 flag and \s+ does not match

Message-Id: <200105290203.DAA00825@crypt.compulink.co.uk>

Explanation why the $@ always gets the UTF8 flag when under use utf8--
because we told it to have the flag when under use utf8.

p4raw-id: //depot/perl@10278

diff --git a/pp_ctl.c b/pp_ctl.c
index 8e12e2b..0d2d2cd 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1434,10 +1434,6 @@ Perl_die_where(pTHX_ char *message, STRLEN msglen)
            }
            else {
                sv_setpvn(ERRSV, message, msglen);
-               if (PL_hints & HINT_UTF8)
-                   SvUTF8_on(ERRSV);
-               else
-                   SvUTF8_off(ERRSV);
            }
        }
        else