Try to die
This commit is contained in:
parent
48bad8dca9
commit
5b78698a5c
@ -26,12 +26,13 @@ sub process
|
||||
|
||||
qx/git clone -b '$rendu' '$path' '$tempdir'/ or croak "$path is not a valid repository.";
|
||||
|
||||
croak "$path is not a valid repository." if (! $?);
|
||||
croak "$path is not a valid repository." if ($?);
|
||||
|
||||
my $tar;
|
||||
open my $fh, "tar -czf - -C '$tempdir' . |" or die ($!);
|
||||
$tar .= $_ while(<$fh>);
|
||||
close $fh;
|
||||
die "Unable to untar: $!" if ($?);
|
||||
|
||||
# Clean
|
||||
remove_tree($tempdir);
|
||||
|
Reference in New Issue
Block a user