# https://rt.cpan.org/Ticket/Display.html?id=76663
my $tmpdir;
sub tmpdir {
- $tmpdir ||= do {
+ dir ($tmpdir ||= do {
my $dir = dir(File::Spec->tmpdir);
$dir->mkpath;
}
- $dir;
- };
+ $dir->stringify;
+ });
}
if (@fail_reasons) {
print STDERR <<'EOE';
-
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
======================== FATAL ERROR ===========================
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
}
print STDERR "\n\n\n";
+ require Time::HiRes;
+ Time::HiRes::sleep(0.005);
+ print STDOUT "\nBail out!\n";
exit 1;
}
}
}
sub is_smoker {
- return ( $ENV{AUTOMATED_TESTING} && ! $ENV{PERL5_CPANM_IS_RUNNING} && ! $ENV{RELEASE_TESTING} )
+ return
+ ( ($ENV{TRAVIS}||'') eq 'true' )
+ ||
+ ( $ENV{AUTOMATED_TESTING} && ! $ENV{PERL5_CPANM_IS_RUNNING} && ! $ENV{RELEASE_TESTING} )
+ ;
}
sub is_plain {