diff options
| author | Gisle Aas <gisle@activestate.com> | 2006-01-04 12:48:34 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-01-04 12:48:34 +0000 |
| commit | 396482e1e4786de2b4c8ab57cb613dc0f110b931 (patch) | |
| tree | b05f1914132e9e79579a39f57a650aff075c27af /pp_pack.c | |
| parent | bd5fcaa6efcc067647598367721b802e1f87eaa2 (diff) | |
| download | perl-396482e1e4786de2b4c8ab57cb613dc0f110b931.tar.gz | |
Introduce the macros newSVpvs(str) and sv_catpvs(sv, str).
Gets rid of many hardcoded string lengths.
p4raw-id: //depot/perl@26641
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -179,7 +179,7 @@ S_mul128(pTHX_ SV *sv, U8 m) char *t; if (!strnEQ(s, "0000", 4)) { /* need to grow sv */ - SV * const tmpNew = newSVpvn("0000000000", 10); + SV * const tmpNew = newSVpvs("0000000000"); sv_catsv(tmpNew, sv); SvREFCNT_dec(sv); /* free old sv */ |