diff options
| author | Chip Salzenberg <chip@pobox.com> | 2012-07-10 22:35:45 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2012-07-10 22:37:14 -0700 |
| commit | 6008229130183ac5d99c7ba4f4e05dfdb2734103 (patch) | |
| tree | 185c8fb956092f1c78c08844c715664d39a0f7f6 /doio.c | |
| parent | 2d7bc9fa6a3bfff96884720e23a819e1d269d0e0 (diff) | |
| download | perl-6008229130183ac5d99c7ba4f4e05dfdb2734103.tar.gz | |
hold pid in Pid_t, not I32, for kill()
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1750,9 +1750,9 @@ nothing in the core. } #endif while (++mark <= sp) { - I32 proc; + Pid_t proc; SvGETMAGIC(*mark); - if (!(SvIOK(*mark) || SvNOK(*mark) || looks_like_number(*mark))) + if (!(SvNIOK(*mark) || looks_like_number(*mark))) Perl_croak(aTHX_ "Can't kill a non-numeric process ID"); proc = SvIV_nomg(*mark); if (killgp) |