Die tabs die
This commit is contained in:
parent
e7ae72cfb1
commit
493f633002
|
@ -74,17 +74,17 @@ my $op = shift @ARGV;
|
||||||
if ($op eq "--file") {
|
if ($op eq "--file") {
|
||||||
my $res = 0;
|
my $res = 0;
|
||||||
foreach my $fn (@ARGV) {
|
foreach my $fn (@ARGV) {
|
||||||
eval {
|
eval {
|
||||||
if (alreadyMirrored("sha512", hashFile("sha512", 0, $fn))) {
|
if (alreadyMirrored("sha512", hashFile("sha512", 0, $fn))) {
|
||||||
print STDERR "$fn is already mirrored\n";
|
print STDERR "$fn is already mirrored\n";
|
||||||
} else {
|
} else {
|
||||||
uploadFile($fn, basename $fn);
|
uploadFile($fn, basename $fn);
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
if ($@) {
|
if ($@) {
|
||||||
warn "$@\n";
|
warn "$@\n";
|
||||||
$res = 1;
|
$res = 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
exit $res;
|
exit $res;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user