Include SVf_UTF8 in the bitmask when checking the SvFLAGS in
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Sun, 30 Dec 2007 04:44:40 +0000 (04:44 +0000)
committerMarcus Holland-Moritz <mhx-perl@gmx.net>
Sun, 30 Dec 2007 04:44:40 +0000 (04:44 +0000)
SvPVutf8_force(), as otherwise the conditional expression will
always be false and the optimisation will never kick in.

p4raw-id: //depot/perl@32781

sv.h

diff --git a/sv.h b/sv.h
index 0d361d3..6855e6e 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1791,7 +1791,7 @@ Like C<sv_catsv> but doesn't process magic.
      ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvutf8(sv, &lp))
 
 #define SvPVutf8_force(sv, lp) \
-    ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == (SVf_POK|SVf_UTF8) \
+    ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8|SVf_THINKFIRST)) == (SVf_POK|SVf_UTF8) \
      ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvutf8n_force(sv, &lp))