diff options
author | Charles Bailey <bailey@newman.upenn.edu> | 1998-03-12 11:02:29 -0500 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-16 15:55:28 +0000 |
commit | 09b7f37c58c6da6f4965b846b64eab7d9a205663 (patch) | |
tree | 0175e00c54b302fe0ffcfa25f9c82103d3196460 /pp.c | |
parent | a887ff1142f02c0c19143d1511194864ae5eafab (diff) | |
download | perl-09b7f37c58c6da6f4965b846b64eab7d9a205663.tar.gz |
VMS updates (direct)
[Needed manual tweaks on vms/config.vms since it clashed with other
patches. I may have got it wrong.]
p4raw-id: //depot/perl@817
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2834,11 +2834,11 @@ mul128(SV *sv, U8 m) U32 i = 0; if (!strnEQ(s, "0000", 4)) { /* need to grow sv */ - SV *New = newSVpv("0000000000", 10); + SV *tmpNew = newSVpv("0000000000", 10); - sv_catsv(New, sv); + sv_catsv(tmpNew, sv); SvREFCNT_dec(sv); /* free old sv */ - sv = New; + sv = tmpNew; s = SvPV(sv, len); } t = s + len - 1; |