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 /sv.h | |
| 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 'sv.h')
| -rw-r--r-- | sv.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1425,6 +1425,9 @@ Like C<sv_catsv> but doesn't process magic. #define sv_2iv(sv) sv_2iv_flags(sv, SV_GMAGIC) #define sv_2uv(sv) sv_2uv_flags(sv, SV_GMAGIC) +#define newSVpvs(str) newSVpvn(STR_WITH_LEN(str)) +#define sv_catpvs(sv, str) sv_catpvn_flags(sv, STR_WITH_LEN(str), SV_GMAGIC) + /* Should be named SvCatPVN_utf8_upgrade? */ #define sv_catpvn_utf8_upgrade(dsv, sstr, slen, nsv) \ STMT_START { \ |