diff --git a/everything.stor b/everything.stor index 086ec31..27b4dd4 100644 Binary files a/everything.stor and b/everything.stor differ diff --git a/lib/TestCpanInc.pm b/lib/TestCpanInc.pm index 24d9b2e..657cd08 100644 --- a/lib/TestCpanInc.pm +++ b/lib/TestCpanInc.pm @@ -15,11 +15,13 @@ our $perlbrew_env = 'blead'; sub remove_imc { my ($module, $incstatus) = @_; + print "Removing MI\r"; $ENV{PERL_USE_UNSAFE_INC} = 1; my @cmd = (qw/perlbrew exec --with/, $perlbrew_env, qw|cpanm --force --uninstall inc::Module::Install |); my $out; run \@cmd, '>&', \$out; + print " \r"; } our $last_dep = time(); diff --git a/setfailed.pl b/setfailed.pl index 8d071cd..d8c01a6 100755 --- a/setfailed.pl +++ b/setfailed.pl @@ -5,9 +5,9 @@ use 5.24.0; use Data::Dumper; use Storable; -my $data = retrieve $ARGV[0]; -my $module = $ARGV[1]; +my $data = retrieve 'everything.stor'; +my $module = $ARGV[0]; $data->{jobstatus}{$module}={tested => 2, status => "manual failure"}; -store $data, $ARGV[0]; +store $data, 'everything.stor';