#!./perl
-BEGIN {
- chdir 't' if -d 't';
- unshift @INC, '../lib';
-}
-
BEGIN{
# Don't do anything if POSIX is missing, or sigaction missing.
use Config;
}
}
-use Test::More tests => 30;
+use Test::More tests => 31;
use strict;
use vars qw/$bad $bad7 $ok10 $bad18 $ok/;
eval 'use POSIX qw(SA_SIGINFO); SA_SIGINFO';
skip("no SA_SIGINFO", 1) if $@;
sub hiphup {
- is($_[1]->{signo}, 1, "SA_SIGINFO got right signal");
+ is($_[1]->{signo}, SIGHUP, "SA_SIGINFO got right signal");
}
my $act = POSIX::SigAction->new('hiphup', 0, SA_SIGINFO);
sigaction(SIGHUP, $act);
kill 'HUP', $$;
}
+eval { sigaction(-999, "foo"); };
+like($@, qr/Negative signals/,
+ "Prevent negative signals instead of core dumping");