| … | |
… | |
| 13 | # use feature qw(say state switch); |
13 | # use feature qw(say state switch); |
| 14 | # use feature qw(unicode_strings unicode_eval current_sub fc evalbytes); |
14 | # use feature qw(unicode_strings unicode_eval current_sub fc evalbytes); |
| 15 | # no feature qw(array_base); |
15 | # no feature qw(array_base); |
| 16 | # no warnings; |
16 | # no warnings; |
| 17 | # use warnings qw(FATAL closed threads internal debugging pack |
17 | # use warnings qw(FATAL closed threads internal debugging pack |
| 18 | # portable prototype inplace io pipe unpack malloc |
18 | # prototype inplace io pipe unpack malloc glob |
| 19 | # glob digit printf layer reserved taint closure |
19 | # digit printf layer reserved taint closure semicolon); |
| 20 | # semicolon); |
|
|
| 21 | # no warnings qw(exec newline unopened); |
20 | # no warnings qw(exec newline unopened); |
| 22 | |
21 | |
| 23 | =head1 DESCRIPTION |
22 | =head1 DESCRIPTION |
| 24 | |
23 | |
| 25 | “Nothing is more fairly distributed than common sense: no one thinks |
24 | “Nothing is more fairly distributed than common sense: no one thinks |
