| Index: third_party/JSON/JSON-2.59/t/_unicode_handling.pm
|
| diff --git a/third_party/JSON/JSON-2.59/t/_unicode_handling.pm b/third_party/JSON/JSON-2.59/t/_unicode_handling.pm
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..ea60d2911c4d49b1a6d26f7d18c4724ea747af8c
|
| --- /dev/null
|
| +++ b/third_party/JSON/JSON-2.59/t/_unicode_handling.pm
|
| @@ -0,0 +1,28 @@
|
| +#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;
|
|
|