#!./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/;
kill 'HUP', $$;
}
+eval { sigaction(-999, "foo"); };
+like($@, qr/Negative signals/,
+ "Prevent negative signals instead of core dumping");