This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
consolidated VMS patches (from Craig A. Berry
[perl5.git] / t / pragma / warn / 8signal
CommitLineData
4438c4b7
JH
1Check interaction of __WARN__, __DIE__ & lexical Warnings
2
3TODO
4
5__END__
6# 8signal
7BEGIN { $SIG{__WARN__} = sub { print "WARN -- @_" } }
8BEGIN { $SIG{__DIE__} = sub { print "DIE -- @_" } }
91 if 1 EQ 2 ;
10use warnings qw(deprecated) ;
111 if 1 EQ 2 ;
12use warnings FATAL => qw(deprecated) ;
131 if 1 EQ 2 ;
14print "The End.\n" ;
15EXPECT
4438c4b7
JH
16WARN -- Use of EQ is deprecated at - line 6.
17DIE -- Use of EQ is deprecated at - line 8.
f0963acb 18Use of EQ is deprecated at - line 8.