diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2007-12-30 04:44:40 +0000 |
---|---|---|
committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2007-12-30 04:44:40 +0000 |
commit | b7a4fb4f15fdc766da6e47dfceacff29a5121ae5 (patch) | |
tree | 369e21b64a6b65b17ae091fc2a44fa1ac091520e /sv.h | |
parent | a7c93bfc3dfadc59dadf5215a34100cfb5369ade (diff) | |
download | perl-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.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)) |