45 lines
826 B
Plaintext
45 lines
826 B
Plaintext
mg.c AOK
|
|
|
|
No such signal: SIG%s
|
|
$SIG{FRED} = sub {}
|
|
|
|
SIG%s handler \"%s\" not defined.
|
|
$SIG{"INT"} = "ok3"; kill "INT",$$;
|
|
|
|
Mandatory Warnings TODO
|
|
------------------
|
|
Can't break at that line [magic_setdbline]
|
|
|
|
__END__
|
|
# mg.c
|
|
use warnings 'signal' ;
|
|
$SIG{FRED} = sub {};
|
|
EXPECT
|
|
No such signal: SIGFRED at - line 3.
|
|
########
|
|
# mg.c
|
|
no warnings 'signal' ;
|
|
$SIG{FRED} = sub {};
|
|
EXPECT
|
|
|
|
########
|
|
# mg.c
|
|
use warnings 'signal' ;
|
|
if ($^O eq 'MSWin32' || $^O eq 'VMS') {
|
|
print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
|
|
}
|
|
$|=1;
|
|
$SIG{"INT"} = "fred"; kill "INT",$$;
|
|
EXPECT
|
|
SIGINT handler "fred" not defined.
|
|
########
|
|
# mg.c
|
|
no warnings 'signal' ;
|
|
if ($^O eq 'MSWin32' || $^O eq 'VMS') {
|
|
print "SKIPPED\n# win32, can't kill() to raise()\n"; exit;
|
|
}
|
|
$|=1;
|
|
$SIG{"INT"} = "fred"; kill "INT",$$;
|
|
EXPECT
|
|
|