This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
in Carp, fix circular dep on Perl 5.6
[perl5.git] / dist / Carp / t / vivify_stash.t
CommitLineData
778a861b
Z
1BEGIN { print "1..1\n"; }
2
3our $has_utf8; BEGIN { $has_utf8 = exists($::{"utf8::"}); }
4
5use Carp;
6
7print !(exists($::{"utf8::"}) xor $has_utf8) ? "" : "not ", "ok 1\n";
8
91;