diff options
author | Andy Lester <andy@petdance.com> | 2005-06-06 18:08:50 -0500 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-06-07 08:18:59 +0000 |
commit | 862a34c634844bb3ea22e5f44bdaf2e973831a89 (patch) | |
tree | 77292e7d3d639e71bc2aca9df160653ecea15005 /util.c | |
parent | c158a4fd68e274329d9ffd7198cb9eb1b21b0dfe (diff) | |
download | perl-862a34c634844bb3ea22e5f44bdaf2e973831a89.tar.gz |
Unvoid SvUPGRADE
Message-ID: <20050607040850.GA7033@petdance.com>
p4raw-id: //depot/perl@24717
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -380,7 +380,7 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags) mg->mg_len++; } s = (U8*)SvPV_force(sv, len); - (void)SvUPGRADE(sv, SVt_PVBM); + SvUPGRADE(sv, SVt_PVBM); if (len == 0) /* TAIL might be on a zero-length string. */ return; if (len > 2) { @@ -2039,7 +2039,7 @@ Perl_my_popen_list(pTHX_ char *mode, int n, SV **args) LOCK_FDPID_MUTEX; sv = *av_fetch(PL_fdpid,p[This],TRUE); UNLOCK_FDPID_MUTEX; - (void)SvUPGRADE(sv,SVt_IV); + SvUPGRADE(sv,SVt_IV); SvIV_set(sv, pid); PL_forkprocess = pid; /* If we managed to get status pipe check for exec fail */ @@ -2190,7 +2190,7 @@ Perl_my_popen(pTHX_ char *cmd, char *mode) LOCK_FDPID_MUTEX; sv = *av_fetch(PL_fdpid,p[This],TRUE); UNLOCK_FDPID_MUTEX; - (void)SvUPGRADE(sv,SVt_IV); + SvUPGRADE(sv,SVt_IV); SvIV_set(sv, pid); PL_forkprocess = pid; if (did_pipes && pid > 0) { @@ -2656,7 +2656,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); + SvUPGRADE(sv,SVt_IV); SvIV_set(sv, status); return; } @@ -3706,7 +3706,7 @@ Perl_getcwd_sv(pTHX_ register SV *sv) int pathlen=0; Direntry_t *dp; - (void)SvUPGRADE(sv, SVt_PV); + SvUPGRADE(sv, SVt_PV); if (PerlLIO_lstat(".", &statbuf) < 0) { SV_CWD_RETURN_UNDEF; |