summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorCharles Bailey <bailey@newman.upenn.edu>1998-03-12 11:02:29 -0500
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1998-03-16 15:55:28 +0000
commit09b7f37c58c6da6f4965b846b64eab7d9a205663 (patch)
tree0175e00c54b302fe0ffcfa25f9c82103d3196460 /pp.c
parenta887ff1142f02c0c19143d1511194864ae5eafab (diff)
downloadperl-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.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/pp.c b/pp.c
index ac297eefa6..9a3b9010ce 100644
--- a/pp.c
+++ b/pp.c
@@ -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;