From: Robert Spier <rspier@pobox.com>
Date: Thu, 15 Nov 2001 11:19:21 +0000 (-0800)
Subject: Re: [ID 20010713.001] use lib segmentation fault
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad4c42df6bd5c3e95a77b950de1458bce8939ec3;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20010713.001] use lib segmentation fault
Message-Id: <15348.5433.732364.963687@rls.cx>

p4raw-id: //depot/perl@13024
---

diff --git a/op.c b/op.c
index 6fbe51c..af125aa 100644
--- a/op.c
+++ b/op.c
@@ -3305,7 +3305,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *id, OP *arg)
 
 	/* Fake up a method call to import/unimport */
 	meth = aver ? newSVpvn("import",6) : newSVpvn("unimport", 8);;
-	sv_upgrade(meth, SVt_PVIV);
+	(void)SvUPGRADE(meth, SVt_PVIV);
 	(void)SvIOK_on(meth);
 	PERL_HASH(SvUVX(meth), SvPVX(meth), SvCUR(meth));
 	imop = convert(OP_ENTERSUB, OPf_STACKED|OPf_SPECIAL,