Commit b78318e9 authored by Francesc Guasch's avatar Francesc Guasch
Browse files

refactor(install): uncompress fallback files only 1st time

parent d44cc6ea
......@@ -36,7 +36,7 @@ sub download($url, $dst = $DIR_FALLBACK) {
$dst .= $filename;
}
return $dst if -e $dst;
return if -e $dst;
print "get $url\n";
my $res = $ua->get($url)->result;
......@@ -89,6 +89,6 @@ while (<$in>) {
next if /^#/;
my ($url, $dst) = split;
my $file = download($url, $dst);
uncompress($file) if $file =~ /\.zip$/;
uncompress($file) if $file && $file =~ /\.zip$/;
}
close $in;
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment