… | |
… | |
1145 | |
1145 | |
1146 | # basically a tuned-down version of common::sense |
1146 | # basically a tuned-down version of common::sense |
1147 | sub common_sense { |
1147 | sub common_sense { |
1148 | # from common:.sense 1.0 |
1148 | # from common:.sense 1.0 |
1149 | ${^WARNING_BITS} = "\xfc\x3f\x33\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x00"; |
1149 | ${^WARNING_BITS} = "\xfc\x3f\x33\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x00"; |
1150 | # use strict vars subs |
1150 | # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl) |
1151 | $^H |= 0x00000600; |
1151 | $^H |= 0x00000600; |
1152 | } |
1152 | } |
1153 | |
1153 | |
1154 | BEGIN { AnyEvent::common_sense } |
1154 | BEGIN { AnyEvent::common_sense } |
1155 | |
1155 | |
1156 | use Carp (); |
1156 | use Carp (); |
1157 | |
1157 | |
1158 | our $VERSION = '5.22'; |
1158 | our $VERSION = '5.23'; |
1159 | our $MODEL; |
1159 | our $MODEL; |
1160 | |
1160 | |
1161 | our $AUTOLOAD; |
1161 | our $AUTOLOAD; |
1162 | our @ISA; |
1162 | our @ISA; |
1163 | |
1163 | |