1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!./perl
BEGIN {
chdir 't' if -d 't';
unshift @INC, '../lib';
}
BEGIN{
# Don't do anything if POSIX is missing, or sigaction missing.
eval { use POSIX; };
if($@ || $^O eq 'MSWin32' || $^O eq 'NetWare') {
print "1..0\n";
exit 0;
}
}
use strict;
use vars qw/$bad7 $ok10 $bad18 $ok/;
$^W=1;
print "1..18\n";
sub IGNORE {
$bad7=1;
}
sub DEFAULT {
$bad18=1;
}
sub foo {
$ok=1;
}
my $newaction=POSIX::SigAction->new('::foo', new POSIX::SigSet(SIGUSR1), 0);
my $oldaction=POSIX::SigAction->new('::bar', new POSIX::SigSet(), 0);
{
my $bad;
local($SIG{__WARN__})=sub { $bad=1; };
sigaction(SIGHUP, $newaction, $oldaction);
if($bad) { print "not ok 1\n" } else { print "ok 1\n"}
}
if($oldaction->{HANDLER} eq 'DEFAULT' ||
$oldaction->{HANDLER} eq 'IGNORE')
{ print "ok 2\n" } else { print "not ok 2 # ", $oldaction->{HANDLER}, "\n"}
print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n";
sigaction(SIGHUP, $newaction, $oldaction);
if($oldaction->{HANDLER} eq '::foo')
{ print "ok 4\n" } else { print "not ok 4\n"}
if($oldaction->{MASK}->ismember(SIGUSR1))
{ print "ok 5\n" } else { print "not ok 5\n"}
if($oldaction->{FLAGS}) {
if ($^O eq 'linux') {
print "ok 6 # Skip: sigaction() broken in $^O\n";
} else {
print "not ok 6\n";
}
} else {
print "ok 6\n";
}
$newaction=POSIX::SigAction->new('IGNORE');
sigaction(SIGHUP, $newaction);
kill 'HUP', $$;
print $bad7 ? "not ok 7\n" : "ok 7\n";
print $SIG{HUP} eq 'IGNORE' ? "ok 8\n" : "not ok 8\n";
sigaction(SIGHUP, POSIX::SigAction->new('DEFAULT'));
print $SIG{HUP} eq 'DEFAULT' ? "ok 9\n" : "not ok 9\n";
$newaction=POSIX::SigAction->new(sub { $ok10=1; });
sigaction(SIGHUP, $newaction);
{
local($^W)=0;
kill 'HUP', $$;
}
print $ok10 ? "ok 10\n" : "not ok 10\n";
print ref($SIG{HUP}) eq 'CODE' ? "ok 11\n" : "not ok 11\n";
sigaction(SIGHUP, POSIX::SigAction->new('::foo'));
# Make sure the signal mask gets restored after sigaction croak()s.
eval {
my $act=POSIX::SigAction->new('::foo');
delete $act->{HANDLER};
sigaction(SIGINT, $act);
};
kill 'HUP', $$;
print $ok ? "ok 12\n" : "not ok 12\n";
undef $ok;
# Make sure the signal mask gets restored after sigaction returns early.
my $x=defined sigaction(SIGKILL, $newaction, $oldaction);
kill 'HUP', $$;
print !$x && $ok ? "ok 13\n" : "not ok 13\n";
$SIG{HUP}=sub {};
sigaction(SIGHUP, $newaction, $oldaction);
print ref($oldaction->{HANDLER}) eq 'CODE' ? "ok 14\n" : "not ok 14\n";
eval {
sigaction(SIGHUP, undef, $oldaction);
};
print $@ ? "not ok 15\n" : "ok 15\n";
eval {
sigaction(SIGHUP, 0, $oldaction);
};
print $@ ? "not ok 16\n" : "ok 16\n";
eval {
sigaction(SIGHUP, bless({},'Class'), $oldaction);
};
print $@ ? "ok 17\n" : "not ok 17\n";
$newaction=POSIX::SigAction->new(sub { $ok10=1; });
sigaction(SIGCONT, POSIX::SigAction->new('DEFAULT'));
{
local($^W)=0;
kill 'CONT', $$;
}
print $bad18 ? "not ok 18\n" : "ok 18\n";
|
