This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lexical warnings; tweaks to places that didn't apply correctly
[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' ;
19$SIG{"INT"} = "fred"; kill "INT",$$;
20EXPECT
21SIGINT handler "fred" not defined.