[svn:ponie] r402 - branches/5.9.3merge/perl
[email protected] Fri, 17 Mar 2006 14:40:54 -0800 (PST)
| Newsgroups | perl.ponie.changes |
|---|---|
| Message-ID | <[email protected]> |
Author: nicholas
Date: Fri Mar 17 14:40:54 2006
New Revision: 402
Modified:
branches/5.9.3merge/perl/pp.c
Log:
Reinstate a missing else into pp_rv2gv.
Modified: branches/5.9.3merge/perl/pp.c
==============================================================================
--- branches/5.9.3merge/perl/pp.c (original)
+++ branches/5.9.3merge/perl/pp.c Fri Mar 17 14:40:54 2006
@@ -172,7 +172,7 @@
}
if (SvTYPE(sv) < SVt_RV)
sv_upgrade(sv, SVt_RV);
- if (SvPVX_const(sv)) {
+ else if (SvTYPE(sv) >= SVt_PV && SvPVX_const(sv)) {
SvPV_free(sv);
SvLEN_set(sv, 0);
SvCUR_set(sv, 0);