| … | |
… | |
| 1131 | package AnyEvent; |
1131 | package AnyEvent; |
| 1132 | |
1132 | |
| 1133 | # basically a tuned-down version of common::sense |
1133 | # basically a tuned-down version of common::sense |
| 1134 | sub common_sense { |
1134 | sub common_sense { |
| 1135 | # from common:.sense 1.0 |
1135 | # from common:.sense 1.0 |
| 1136 | ${^WARNING_BITS} = "\xfc\x3f\xf3\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x03"; |
1136 | ${^WARNING_BITS} = "\xfc\x3f\x33\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x03"; |
| 1137 | # use strict vars subs |
1137 | # use strict vars subs |
| 1138 | $^H |= 0x00000600; |
1138 | $^H |= 0x00000600; |
| 1139 | } |
1139 | } |
| 1140 | |
1140 | |
| 1141 | BEGIN { AnyEvent::common_sense } |
1141 | BEGIN { AnyEvent::common_sense } |
