| … | |
… | |
| 102 | |
102 | |
| 103 | package common::sense; |
103 | package common::sense; |
| 104 | |
104 | |
| 105 | our $VERSION = '1.0'; |
105 | our $VERSION = '1.0'; |
| 106 | |
106 | |
|
|
107 | # no warnings; |
|
|
108 | # use warnings qw(FATAL closed threads internal debugging pack substr malloc unopened portable prototype |
|
|
109 | # inplace io pipe unpack regexp deprecated exiting redefine glob digit printf |
|
|
110 | # utf8 layer reserved parenthesis taint closure semicolon); |
|
|
111 | # no warnings qw(exec newline); |
|
|
112 | # BEGIN { warn join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS}; exit 0 }; |
|
|
113 | |
|
|
114 | # overload should be included |
|
|
115 | |
| 107 | sub import { |
116 | sub import { |
| 108 | # no warnings |
117 | # verified with perl 5.8.0, 5.10.0 |
| 109 | ${^WARNING_BITS} ^= ${^WARNING_BITS}; |
118 | ${^WARNING_BITS} = "\xfc\x3f\xf3\x00\xcf\xf3\xcf\xc0\xf3\xfc\x33\x03"; |
| 110 | |
119 | |
| 111 | # use strict vars subs |
120 | # use strict vars subs |
| 112 | $^H |= 0x00000600; |
121 | $^H |= 0x00000600; |
| 113 | |
122 | |
| 114 | # use feature |
123 | # use feature |
