Change 13024 by ams@lustre on 2001/11/15 19:32:06
Subject: Re: [ID 20010713.001] use lib segmentation fault
From: [EMAIL PROTECTED] (Robert Spier)
Date: Thu, 15 Nov 2001 11:19:21 -0800
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/op.c#452 edit
Differences ...
==== //depot/perl/op.c#452 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Thu Nov 15 12:45:05 2001
+++ perl/op.c Thu Nov 15 12:45:05 2001
@@ -3305,7 +3305,7 @@
/* 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,
End of Patch.
