… | |
… | |
1151 | |
1151 | |
1152 | package AnyEvent; |
1152 | package AnyEvent; |
1153 | |
1153 | |
1154 | # basically a tuned-down version of common::sense |
1154 | # basically a tuned-down version of common::sense |
1155 | sub common_sense { |
1155 | sub common_sense { |
1156 | # from common:.sense 3.3 |
1156 | # from common:.sense 3.4 |
1157 | ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x3c\x3f\x33\x00\x0f\xf3\x0f\xc0\xf0\xfc\x33\x00"; |
1157 | ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x3c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00"; |
1158 | # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl) |
1158 | # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl) |
1159 | $^H |= 0x00000600; |
1159 | $^H |= 0x00000600; |
1160 | } |
1160 | } |
1161 | |
1161 | |
1162 | BEGIN { AnyEvent::common_sense } |
1162 | BEGIN { AnyEvent::common_sense } |