epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Try to die

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-03 01:30:09 +01:00
parent 48bad8dca9
commit 5b78698a5c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
process/files/send_git.pl
View File

@ -26,12 +26,13 @@ sub process
qx/git clone -b '$rendu' '$path' '$tempdir'/ or croak "$path is not a valid repository."; 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; my $tar;
open my $fh, "tar -czf - -C '$tempdir' . |" or die ($!); open my $fh, "tar -czf - -C '$tempdir' . |" or die ($!);
$tar .= $_ while(<$fh>); $tar .= $_ while(<$fh>);
close $fh; close $fh;
die "Unable to untar: $!" if ($?);
# Clean # Clean
remove_tree($tempdir); remove_tree($tempdir);