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 /mg.c | |
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
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 6 |
1 files changed, 3 insertions, 3 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))); } } |