1#package utf8; 2package _unicode_handling; 3 4# this is a dummy pragma for 5.005. 5 6 if ($] < 5.006) { 7 $INC{'utf8.pm'} = './utf8.pm'; 8 9 eval q| 10 sub utf8::import { } 11 sub utf8::unimport { } 12 |; 13 14 $JSON::can_handle_UTF16_and_utf8 = 0; 15 } 16 else { 17 $JSON::can_handle_UTF16_and_utf8 = 1; 18 19 if ($] > 5.007 and $] < 5.008003) { 20# $JSON::can_handle_UTF16_and_utf8 = 0; 21 } 22 23 } 24 25 26 27 281; 29