simcop2387/treedeps
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Had some zfs bugs. commiting and pushing for safety

Browse source
This commit is contained in:
Your Name 2017-04-07 03:45:57 -04:00
parent a826de8da7
commit 6ebff973b2
3 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
everything.stor
View file

Binary file not shown.

2
lib/TestCpanInc.pm
View file

@ -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();

6
setfailed.pl
View file

@ -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';