src/third_party/JSON/JSON-2.59/t/_unicode_handling.pm

   1 #package utf8;
   2 package _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
  28 1;