1N/A mg.c AOK

1N/A

1N/A No such signal: SIG%s

1N/A $SIG{FRED} = sub {}

1N/A

1N/A SIG%s handler \"%s\" not defined.

1N/A $SIG{"INT"} = "ok3"; kill "INT",$$;

1N/A

1N/A Mandatory Warnings TODO

1N/A ------------------

1N/A Can't break at that line [magic_setdbline]

1N/A

1N/A__END__

1N/A# mg.c

1N/Ause warnings 'signal' ;

1N/A$SIG{FRED} = sub {};

1N/AEXPECT

1N/ANo such signal: SIGFRED at - line 3.

1N/A########

1N/A# mg.c

1N/Ano warnings 'signal' ;

1N/A$SIG{FRED} = sub {};

1N/AEXPECT

1N/A

1N/A########

1N/A# mg.c

1N/Ause warnings 'signal' ;

1N/Aif ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') {

1N/A print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;

1N/A}

1N/A$|=1;

1N/A$SIG{"INT"} = "fred"; kill "INT",$$;

1N/AEXPECT

1N/ASIGINT handler "fred" not defined.

1N/A########

1N/A# mg.c

1N/Ano warnings 'signal' ;

1N/Aif ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') {

1N/A print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;

1N/A}

1N/A$|=1;

1N/A$SIG{"INT"} = "fred"; kill "INT",$$;

1N/AEXPECT

1N/A

1N/A########

1N/A# mg.c

1N/Ause warnings 'uninitialized';

1N/A'foo' =~ /(foo)/;

1N/Alength $3;

1N/AEXPECT

1N/AUse of uninitialized value in length at - line 4.

1N/A########

1N/A# mg.c

1N/Ause warnings 'uninitialized';

1N/Alength $3;

1N/AEXPECT

1N/AUse of uninitialized value in length at - line 3.