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; |