diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2009-07-09 16:29:23 -0400 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-07-09 22:45:18 +0200 |
| commit | 5f52195583e702743629f81937ce0acd7d98d081 (patch) | |
| tree | 2ddd19ff13a43cf2d0915e88b00bb5d49449504a /doio.c | |
| parent | 4d6e9c138f96185492e3fdf6a460594feb4fee57 (diff) | |
| download | perl-5f52195583e702743629f81937ce0acd7d98d081.tar.gz | |
Fix compiler warning in doio.c
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -1726,10 +1726,11 @@ nothing in the core. * CRTL's emulation of Unix-style signals and kill() */ while (++mark <= sp) { + I32 proc; + register unsigned long int __vmssts; if (!(SvIOK(*mark) || SvNOK(*mark) || looks_like_number(*mark))) Perl_croak(aTHX_ "Can't kill a non-numeric process ID"); - I32 proc = SvIV(*mark); - register unsigned long int __vmssts; + proc = SvIV(*mark); APPLY_TAINT_PROPER(); if (!((__vmssts = sys$delprc(&proc,0)) & 1)) { tot--; @@ -1752,9 +1753,10 @@ nothing in the core. if (val < 0) { val = -val; while (++mark <= sp) { + I32 proc; if (!(SvIOK(*mark) || SvNOK(*mark) || looks_like_number(*mark))) Perl_croak(aTHX_ "Can't kill a non-numeric process ID"); - const I32 proc = SvIV(*mark); + proc = SvIV(*mark); APPLY_TAINT_PROPER(); #ifdef HAS_KILLPG if (PerlProc_killpg(proc,val)) /* BSD */ @@ -1766,9 +1768,10 @@ nothing in the core. } else { while (++mark <= sp) { + I32 proc; if (!(SvIOK(*mark) || SvNOK(*mark) || looks_like_number(*mark))) Perl_croak(aTHX_ "Can't kill a non-numeric process ID"); - const I32 proc = SvIV(*mark); + proc = SvIV(*mark); APPLY_TAINT_PROPER(); if (PerlProc_kill(proc, val)) tot--; |