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
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
12 use warning 'signal' ;
13 $SIG{FRED} = sub {};
14 EXPECT
15 No such signal: SIGFRED at - line 3.
16 ########
17 # mg.c
18 use warning 'signal' ;
19 if ($^O eq 'MSWin32') {
20     print "SKIPPED\n# win32, can't kill() to raise()\n"; exit;
21 }
22 $|=1;
23 $SIG{"INT"} = "fred"; kill "INT",$$;
24 EXPECT
25 SIGINT handler "fred" not defined.