summaryrefslogtreecommitdiff
path: root/sv.h
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2007-12-30 04:44:40 +0000
committerMarcus Holland-Moritz <mhx-perl@gmx.net>2007-12-30 04:44:40 +0000
commitb7a4fb4f15fdc766da6e47dfceacff29a5121ae5 (patch)
tree369e21b64a6b65b17ae091fc2a44fa1ac091520e /sv.h
parenta7c93bfc3dfadc59dadf5215a34100cfb5369ade (diff)
downloadperl-b7a4fb4f15fdc766da6e47dfceacff29a5121ae5.tar.gz
Include SVf_UTF8 in the bitmask when checking the SvFLAGS in
SvPVutf8_force(), as otherwise the conditional expression will always be false and the optimisation will never kick in. p4raw-id: //depot/perl@32781
Diffstat (limited to 'sv.h')
-rw-r--r--sv.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.h b/sv.h
index 0d361d3e83..6855e6ea2c 100644
--- 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))