dist/Carp/t/vivify_gv.t

   1 BEGIN { print "1..2\n"; }
   2
   3 our $has_is_utf8; BEGIN { $has_is_utf8 = exists($utf8::{"is_utf8"}); }
   4 our $has_dgrade; BEGIN { $has_dgrade = exists($utf8::{"downgrade"}); }
   5
   6 use Carp;
   7
   8 print !(exists($utf8::{"is_utf8"}) xor $has_is_utf8) ? "" : "not ", "ok 1\n";
   9 print !(exists($utf8::{"downgrade"}) xor $has_dgrade) ? "" : "not ", "ok 2\n";
  10
  11 1;