develooper Front page | perl.ponie.changes | Postings from March 2006

[svn:ponie] r402 - branches/5.9.3merge/perl

From:
nicholas
Date:
March 17, 2006 14:41
Subject:
[svn:ponie] r402 - branches/5.9.3merge/perl
Message ID:
20060317224054.E3569CBA2B@x12.develooper.com
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);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About