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 /xsutils.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 'xsutils.c')
| -rw-r--r-- | xsutils.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -217,21 +217,21 @@ usage: case SVt_PVCV: cvflags = CvFLAGS((CV*)sv); if (cvflags & CVf_LOCKED) - XPUSHs(sv_2mortal(newSVpvn("locked", 6))); + XPUSHs(sv_2mortal(newSVpvs("locked"))); #ifdef CVf_LVALUE if (cvflags & CVf_LVALUE) - XPUSHs(sv_2mortal(newSVpvn("lvalue", 6))); + XPUSHs(sv_2mortal(newSVpvs("lvalue"))); #endif if (cvflags & CVf_METHOD) - XPUSHs(sv_2mortal(newSVpvn("method", 6))); + XPUSHs(sv_2mortal(newSVpvs("method"))); if (GvUNIQUE(CvGV((CV*)sv))) - XPUSHs(sv_2mortal(newSVpvn("unique", 6))); + XPUSHs(sv_2mortal(newSVpvs("unique"))); if (cvflags & CVf_ASSERTION) - XPUSHs(sv_2mortal(newSVpvn("assertion", 9))); + XPUSHs(sv_2mortal(newSVpvs("assertion"))); break; case SVt_PVGV: if (GvUNIQUE(sv)) - XPUSHs(sv_2mortal(newSVpvn("unique", 6))); + XPUSHs(sv_2mortal(newSVpvs("unique"))); break; default: break; |