… | |
… | |
1223 | |
1223 | |
1224 | package AnyEvent; |
1224 | package AnyEvent; |
1225 | |
1225 | |
1226 | # basically a tuned-down version of common::sense |
1226 | # basically a tuned-down version of common::sense |
1227 | sub common_sense { |
1227 | sub common_sense { |
1228 | # from common:.sense 3.4 |
1228 | # from common:.sense 3.5 |
|
|
1229 | local $^W; |
1229 | ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x3c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00"; |
1230 | ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x3c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00"; |
1230 | # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl) |
1231 | # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl) |
1231 | $^H |= 0x00000600; |
1232 | $^H |= 0x00000600; |
1232 | } |
1233 | } |
1233 | |
1234 | |