dist/Carp/t/vivify_stash.t


1
2
3
4
5
6
7
8
9

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;