diff options
| author | Robert Spier <rspier@pobox.com> | 2001-11-15 03:19:21 -0800 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-15 19:32:06 +0000 |
| commit | ad4c42df6bd5c3e95a77b950de1458bce8939ec3 (patch) | |
| tree | 927f1341659ee01fe32d98496c1b1c148fcd9f26 /op.c | |
| parent | 47eb2c97b7ba22f5efd5098adf5a4590e3c2268c (diff) | |
| download | perl-ad4c42df6bd5c3e95a77b950de1458bce8939ec3.tar.gz | |
Re: [ID 20010713.001] use lib segmentation fault
Message-Id: <15348.5433.732364.963687@rls.cx>
p4raw-id: //depot/perl@13024
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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, |