#package utf8; package _unicode_handling; # this is a dummy pragma for 5.005. if ($] < 5.006) { $INC{'utf8.pm'} = './utf8.pm'; eval q| sub utf8::import { } sub utf8::unimport { } |; $JSON::can_handle_UTF16_and_utf8 = 0; } else { $JSON::can_handle_UTF16_and_utf8 = 1; if ($] > 5.007 and $] < 5.008003) { # $JSON::can_handle_UTF16_and_utf8 = 0; } } 1;