Change 32781 by [EMAIL PROTECTED] on 2007/12/30 04:44:40
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.
Affected files ...
... //depot/perl/sv.h#331 edit
Differences ...
==== //depot/perl/sv.h#331 (text) ====
Index: perl/sv.h
--- perl/sv.h#330~32751~ 2007-12-28 01:59:06.000000000 -0800
+++ perl/sv.h 2007-12-29 20:44:40.000000000 -0800
@@ -1791,7 +1791,7 @@
? ((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))
End of Patch.
