BEGIN { print "1..1\n"; }
our $has_utf8; BEGIN { $has_utf8 = exists($::{"utf8::"}); }
use Carp;
print !(exists($::{"utf8::"}) xor $has_utf8) ? "" : "not ", "ok 1\n";
1;
BEGIN { print "1..1\n"; }
our $has_utf8; BEGIN { $has_utf8 = exists($::{"utf8::"}); }
use Carp;
print !(exists($::{"utf8::"}) xor $has_utf8) ? "" : "not ", "ok 1\n";
1;