… | |
… | |
15 | use strict qw(subs vars); |
15 | use strict qw(subs vars); |
16 | |
16 | |
17 | no warnings; |
17 | no warnings; |
18 | use warnings qw(FATAL closed threads internal debugging pack substr malloc portable prototype |
18 | use warnings qw(FATAL closed threads internal debugging pack substr malloc portable prototype |
19 | inplace io pipe unpack regexp deprecated exiting glob digit printf |
19 | inplace io pipe unpack regexp deprecated exiting glob digit printf |
20 | layer reserved parenthesis taint closure semicolon); |
20 | layer reserved taint closure semicolon); |
21 | no warnings qw(exec newline unopened); |
21 | no warnings qw(exec newline unopened); |
22 | |
22 | |
23 | BEGIN { |
23 | BEGIN { |
24 | $H = $^H & ~$H; |
24 | $H = $^H & ~$H; |
25 | $WARN = ${^WARNING_BITS} & ~$WARN; |
25 | $WARN = ${^WARNING_BITS} & ~$WARN; |
… | |
… | |
57 | # use feature qw(say state switch); |
57 | # use feature qw(say state switch); |
58 | # no warnings; |
58 | # no warnings; |
59 | # use warnings qw(FATAL closed threads internal debugging pack substr malloc |
59 | # use warnings qw(FATAL closed threads internal debugging pack substr malloc |
60 | # portable prototype inplace io pipe unpack regexp |
60 | # portable prototype inplace io pipe unpack regexp |
61 | # deprecated exiting glob digit printf layer |
61 | # deprecated exiting glob digit printf layer |
62 | # reserved parenthesis taint closure semicolon); |
62 | # reserved taint closure semicolon); |
63 | # no warnings qw(exec newline unopened); |
63 | # no warnings qw(exec newline unopened); |
64 | |
64 | |
65 | =head1 DESCRIPTION |
65 | =head1 DESCRIPTION |
66 | |
66 | |
67 | This module implements some sane defaults for Perl programs, as defined by |
67 | This module implements some sane defaults for Perl programs, as defined by |