1 files changed, 28 insertions, 0 deletions
diff --git a/cpan/JSON-PP/t/_unicode_handling.pm b/cpan/JSON-PP/t/_unicode_handling.pm
new file mode 100644
index 0000000000..73a6748f15
--- /dev/null
+++ b/cpan/JSON-PP/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::PP::can_handle_UTF16_and_utf8 = 0;
+    }
+    else {
+        $JSON::PP::can_handle_UTF16_and_utf8 = 1;
+
+        if ($] > 5.007 and $] < 5.008003) {
+#            $JSON::can_handle_UTF16_and_utf8 = 0;
+        }
+
+    }
+
+
+
+
+1;