2N/A chdir 't' if -d 't';
2N/Ause Carp qw(carp cluck croak confess);
2N/A$SIG{__WARN__} = sub {
2N/A if $_[0] =~ m!ok (\d+)$! };
2N/A$SIG{__WARN__} = sub {
2N/A if $_[0] =~ m!(\d+) at .+\b(?i:carp\.t) line \d+$! };
2N/A$SIG{__WARN__} = sub {
2N/A if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\tmain::sub_4\(\) called at .+\b(?i:carp\.t) line \d+$! };
if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\teval \Q{...}\E called at .+\b(?i:carp\.t) line \d+$! };
if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\teval \Q{...}\E called at .+\b(?i:carp\.t) line \d+\n\tmain::sub_6\(\) called at .+\b(?i:carp\.t) line \d+$! };
# test for caller_info API
my $eval = "use Carp::Heavy; return Carp::caller_info(0);";
print "not " if ($info{sub_name} ne "eval '$eval'");
# test for '...::CARP_NOT used only once' warning from Carp::Heavy
sub { if( defined $^S ){ warn $_[0] } else { $warning = $_[0] } }
BEGIN { eval { Carp::croak() } }
print $warning ? "not ok 9\n#$warning" : "ok 9\n";