Change 27548 by [EMAIL PROTECTED] on 2006/03/20 10:13:38
If the scalar has just been upgraded to SVt_RV, there's no way SvPVX
can be non-NULL, so no need to check.
Affected files ...
... //depot/perl/pp.c#529 edit
Differences ...
==== //depot/perl/pp.c#529 (text) ====
Index: perl/pp.c
--- perl/pp.c#528~27547~ 2006-03-20 02:11:21.000000000 -0800
+++ perl/pp.c 2006-03-20 02:13:38.000000000 -0800
@@ -172,7 +172,7 @@
}
if (SvTYPE(sv) < SVt_RV)
sv_upgrade(sv, SVt_RV);
- if (SvPVX_const(sv)) {
+ else if (SvPVX_const(sv)) {
SvPV_free(sv);
SvLEN_set(sv, 0);
SvCUR_set(sv, 0);
End of Patch.
