diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-04-07 08:51:49 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-08 11:29:22 +0000 |
| commit | 45977657b0fa2c29b268b817f40e6b295a501d39 (patch) | |
| tree | 60bae3828a7280d4a28993fc2e4376977bae5fcd /util.c | |
| parent | f599b64b5d5d221c90b5f40eb5ad167f16c1822c (diff) | |
| download | perl-45977657b0fa2c29b268b817f40e6b295a501d39.tar.gz | |
Refactoring to Sv*_set() macros - patch #2
Message-ID: <20050407185149.GA4418@mccoy.peters.homeunix.org>
p4raw-id: //depot/perl@24204
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2026,7 +2026,7 @@ Perl_my_popen_list(pTHX_ char *mode, int n, SV **args) sv = *av_fetch(PL_fdpid,p[This],TRUE); UNLOCK_FDPID_MUTEX; (void)SvUPGRADE(sv,SVt_IV); - SvIVX(sv) = pid; + SvIV_set(sv, pid); PL_forkprocess = pid; /* If we managed to get status pipe check for exec fail */ if (did_pipes && pid > 0) { @@ -2179,7 +2179,7 @@ Perl_my_popen(pTHX_ char *cmd, char *mode) sv = *av_fetch(PL_fdpid,p[This],TRUE); UNLOCK_FDPID_MUTEX; (void)SvUPGRADE(sv,SVt_IV); - SvIVX(sv) = pid; + SvIV_set(sv, pid); PL_forkprocess = pid; if (did_pipes && pid > 0) { int errkid; @@ -2636,7 +2636,7 @@ Perl_pidgone(pTHX_ Pid_t pid, int status) sprintf(spid, "%"IVdf, (IV)pid); sv = *hv_fetch(PL_pidstatus,spid,strlen(spid),TRUE); (void)SvUPGRADE(sv,SVt_IV); - SvIVX(sv) = status; + SvIV_set(sv, status); return; } |