Commit | Line | Data |
---|---|---|
4438c4b7 JH |
1 | Check interaction of __WARN__, __DIE__ & lexical Warnings |
2 | ||
3 | TODO | |
4 | ||
5 | __END__ | |
6 | # 8signal | |
7 | BEGIN { $SIG{__WARN__} = sub { print "WARN -- @_" } } | |
8 | BEGIN { $SIG{__DIE__} = sub { print "DIE -- @_" } } | |
9 | 1 if 1 EQ 2 ; | |
10 | use warnings qw(deprecated) ; | |
11 | 1 if 1 EQ 2 ; | |
12 | use warnings FATAL => qw(deprecated) ; | |
13 | 1 if 1 EQ 2 ; | |
14 | print "The End.\n" ; | |
15 | EXPECT | |
4438c4b7 JH |
16 | WARN -- Use of EQ is deprecated at - line 6. |
17 | DIE -- Use of EQ is deprecated at - line 8. | |
f0963acb | 18 | Use of EQ is deprecated at - line 8. |