diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-15 20:02:51 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-15 21:27:49 +0100 |
| commit | f584eb2d9f7ac11f83863d38a4f1f95cd9775aa2 (patch) | |
| tree | 780b55cb6c0c3e46b33d8dcbcc75f035e4f21214 /ext | |
| parent | 352e1c09cf09498d4917c120c2055943a4301c0a (diff) | |
| download | perl-f584eb2d9f7ac11f83863d38a4f1f95cd9775aa2.tar.gz | |
Use newSVpvn(), newSVpvs() and gv_fetchpvs(), the later with proper arguments.
Brought to you by the Campaign for the Elimination of strlen().
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 85723675af..392ba12aaf 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1217,7 +1217,7 @@ sigaction(sig, optaction, oldaction = 0) { dVAR; POSIX__SigAction action; - GV *siggv = gv_fetchpv("SIG", TRUE, SVt_PVHV); + GV *siggv = gv_fetchpvs("SIG", GV_ADD, SVt_PVHV); struct sigaction act; struct sigaction oact; sigset_t sset; @@ -1280,7 +1280,7 @@ sigaction(sig, optaction, oldaction = 0) XSRETURN_UNDEF; ENTER; /* Restore signal mask no matter how we exit this block. */ - osset_sv = newSVpv((char *)(&osset), sizeof(sigset_t)); + osset_sv = newSVpvn((char *)(&osset), sizeof(sigset_t)); SAVEFREESV( osset_sv ); SAVEDESTRUCTOR_X(restore_sigmask, osset_sv); @@ -1295,7 +1295,7 @@ sigaction(sig, optaction, oldaction = 0) sv_setsv(*svp, *sigsvp); } else { - sv_setpv(*svp, "DEFAULT"); + sv_setpvs(*svp, "DEFAULT"); } RETVAL = sigaction(sig, (struct sigaction *)0, & oact); if(RETVAL == -1) |