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
1 BEGIN { print "1..1\n"; }
2
3 our $has_utf8; BEGIN { $has_utf8 = exists($::{"utf8::"}); }
4
5 use Carp;
6
7 print !(exists($::{"utf8::"}) xor $has_utf8) ? "" : "not ", "ok 1\n";
8
9 1;