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.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.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -600,7 +600,7 @@ PP(pp_gelem) if (strEQ(second_letter, "ACKAGE")) { const HV * const stash = GvSTASH(gv); const HEK * const hek = stash ? HvNAME_HEK(stash) : NULL; - sv = hek ? newSVhek(hek) : newSVpvn("__ANON__", 8); + sv = hek ? newSVhek(hek) : newSVpvs("__ANON__"); } break; case 'S': |