Archived
1
0

Try to die

This commit is contained in:
Mercier Pierre-Olivier 2013-11-03 01:30:09 +01:00
parent 48bad8dca9
commit 5b78698a5c

View File

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