diff options
| author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2013-10-31 10:38:22 +0000 |
|---|---|---|
| committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2013-10-31 10:38:22 +0000 |
| commit | e84b6340760ed17a22ced0ca110a94fa8322b35e (patch) | |
| tree | 4f3deee75d0ae93c776d515c200a40d71cc8a247 /t/_unicode_handling.pm | |
| download | JSON-tarball-master.tar.gz | |
Diffstat (limited to 't/_unicode_handling.pm')
| -rw-r--r-- | t/_unicode_handling.pm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/_unicode_handling.pm b/t/_unicode_handling.pm new file mode 100644 index 0000000..ea60d29 --- /dev/null +++ b/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;
|