… | |
… | |
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 |