diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-01-09 21:26:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-01-09 21:26:40 +0000 |
| commit | 2e0de35c58680e1e008b1d014c5b9ccec5b78282 (patch) | |
| tree | ca49feb20f6ec1dffdbc11370070a0173467afe2 /embed.h | |
| parent | 8a7a129d01690124356e6e97ab81becf500e68af (diff) | |
| download | perl-2e0de35c58680e1e008b1d014c5b9ccec5b78282.tar.gz | |
savepv(SvPV(sv,n_a)) is common, and creates an unnecessary call to
strlen(). Add savesvpv(sv), which gets the length from the SV,
and returns a copy of its PV.
p4raw-id: //depot/perl@23772
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2283,6 +2283,7 @@ #ifdef PERL_CORE #define is_gv_magical_sv Perl_is_gv_magical_sv #endif +#define savesvpv Perl_savesvpv #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -4903,6 +4904,7 @@ #ifdef PERL_CORE #define is_gv_magical_sv(a,b) Perl_is_gv_magical_sv(aTHX_ a,b) #endif +#define savesvpv(a) Perl_savesvpv(aTHX_ a) #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_concat(a) Perl_ck_concat(aTHX_ a) |