diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-10-18 17:15:16 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-10-18 17:15:16 +0000 |
commit | 9ff8e8065ea8557fda504cf7c2337bef185cd00f (patch) | |
tree | f580ff4e8abf589144e19925a9032dadbe6cec41 | |
parent | 5e0ab564a19e208af30e5d05d5a03aae32025de6 (diff) | |
download | perl-9ff8e8065ea8557fda504cf7c2337bef185cd00f.tar.gz |
Change newSVpv() to newSVpvn() where we know the length is non-zero, as
newSVpvn() will be fractionally more efficient.
p4raw-id: //depot/perl@32135
-rw-r--r-- | mg.c | 6 | ||||
-rw-r--r-- | toke.c | 2 |
2 files changed, 4 insertions, 4 deletions
@@ -1245,7 +1245,7 @@ Perl_magic_clearsig(pTHX_ SV *sv, MAGIC *mg) sigaddset(&set,i); sigprocmask(SIG_BLOCK, &set, &save); ENTER; - save_sv = newSVpv((char *)(&save), sizeof(sigset_t)); + save_sv = newSVpvn((char *)(&save), sizeof(sigset_t)); SAVEFREESV(save_sv); SAVEDESTRUCTOR_X(restore_sigmask, save_sv); #endif @@ -1442,7 +1442,7 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg) sigaddset(&set,i); sigprocmask(SIG_BLOCK, &set, &save); ENTER; - save_sv = newSVpv((char *)(&save), sizeof(sigset_t)); + save_sv = newSVpvn((char *)(&save), sizeof(sigset_t)); SAVEFREESV(save_sv); SAVEDESTRUCTOR_X(restore_sigmask, save_sv); #endif @@ -2876,7 +2876,7 @@ Perl_sighandler(int sig) #endif EXTEND(SP, 2); PUSHs((SV*)rv); - PUSHs(newSVpv((char *)sip, sizeof(*sip))); + PUSHs(newSVpvn((char *)sip, sizeof(*sip))); } } @@ -5346,7 +5346,7 @@ Perl_yylex(pTHX) #ifdef PERL_MAD if (PL_madskills && !PL_thistoken) { char *start = SvPVX(PL_linestr) + PL_realtokenstart; - PL_thistoken = newSVpv(start,s - start); + PL_thistoken = newSVpvn(start,s - start); PL_realtokenstart = s - SvPVX(PL_linestr); } #endif |