… | |
… | |
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); |
|
|
111 | # BEGIN { warn join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS} }; |
|
|
112 | |
|
|
113 | # overload should be included |
|
|
114 | |
107 | sub import { |
115 | sub import { |
108 | # no warnings |
116 | # verified with perl 5.8.0, 5.10.0 |
109 | ${^WARNING_BITS} ^= ${^WARNING_BITS}; |
117 | ${^WARNING_BITS} = "\xfc\xff\xff\x00\xcf\xf3\xcf\xc0\xf3\xcc\x33\x03"; |
110 | |
118 | |
111 | # use strict vars subs |
119 | # use strict vars subs |
112 | $^H |= 0x00000600; |
120 | $^H |= 0x00000600; |
113 | |
121 | |
114 | # use feature |
122 | # use feature |