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