diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-03 17:42:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-03 17:42:27 +0000 |
| commit | 84bafc024a74c819ac3d2b4406253dbe983e6502 (patch) | |
| tree | 078faf96a8959e8d6ede5d541caf7896de32c569 /xsutils.c | |
| parent | 59cd0e26eb6c10499b25d783562357dd68cc16f2 (diff) | |
| download | perl-84bafc024a74c819ac3d2b4406253dbe983e6502.tar.gz | |
Add newSVpvs_flags() as a wrapper to newSVpvn_flags(), and rework
sv_2mortal(newSVpvs(...)) constructions to use it.
p4raw-id: //depot/perl@32819
Diffstat (limited to 'xsutils.c')
| -rw-r--r-- | xsutils.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -210,19 +210,19 @@ usage: case SVt_PVCV: cvflags = CvFLAGS((CV*)sv); if (cvflags & CVf_LOCKED) - XPUSHs(sv_2mortal(newSVpvs("locked"))); + XPUSHs(newSVpvs_flags("locked", SVs_TEMP)); #ifdef CVf_LVALUE if (cvflags & CVf_LVALUE) - XPUSHs(sv_2mortal(newSVpvs("lvalue"))); + XPUSHs(newSVpvs_flags("lvalue", SVs_TEMP)); #endif if (cvflags & CVf_METHOD) - XPUSHs(sv_2mortal(newSVpvs("method"))); + XPUSHs(newSVpvs_flags("method", SVs_TEMP)); if (GvUNIQUE(CvGV((CV*)sv))) - XPUSHs(sv_2mortal(newSVpvs("unique"))); + XPUSHs(newSVpvs_flags("unique", SVs_TEMP)); break; case SVt_PVGV: if (GvUNIQUE(sv)) - XPUSHs(sv_2mortal(newSVpvs("unique"))); + XPUSHs(newSVpvs_flags("unique", SVs_TEMP)); break; default: break; |