This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
rename t/pragma/warn-* to t/pragma/warn/*, be 8.3-friendly
[perl5.git] / t / pragma / warn / mg
CommitLineData
599cee73
PM
1 mg.c AOK
2
3 No such signal: SIG%s
4 $SIG{FRED} = sub {}
5
6 SIG%s handler \"%s\" not defined.
7 $SIG{"INT"} = "ok3"; kill "INT",$$;
8
9
10__END__
11# mg.c
12use warning 'signal' ;
13$SIG{FRED} = sub {};
14EXPECT
15No such signal: SIGFRED at - line 3.
16########
17# mg.c
18use warning 'signal' ;
dfe13c55
GS
19if ($^O eq 'MSWin32') {
20 print "SKIPPED\n# win32, can't kill() to raise()\n"; exit;
21}
d008e5eb 22$|=1;
599cee73
PM
23$SIG{"INT"} = "fred"; kill "INT",$$;
24EXPECT
25SIGINT handler "fred" not defined.