This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_subst: do SvUTF8_on next to the SvPOK_only_UTF8
authorDavid Mitchell <davem@iabyn.com>
Sun, 6 Feb 2011 21:09:57 +0000 (21:09 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 6 Feb 2011 21:34:44 +0000 (21:34 +0000)
This should leave things functionally unchanged.

This is another step in making two branches of code more identical

pp_hot.c

index 7316c5a..941dd04 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2320,11 +2320,11 @@ PP(pp_subst)
                mPUSHi((I32)iters);
        }
        (void)SvPOK_only_UTF8(TARG);
+       if (doutf8)
+           SvUTF8_on(TARG);
        TAINT_IF(rxtainted);
        SvSETMAGIC(TARG);
        SvTAINT(TARG);
-       if (doutf8)
-           SvUTF8_on(TARG);
        LEAVE_SCOPE(oldsave);
        RETURN;
     }