summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/dev/download-package-repository20
1 files changed, 10 insertions, 10 deletions
diff --git a/Master/tlpkg/dev/download-package-repository b/Master/tlpkg/dev/download-package-repository
index ae9399a4ae0..f2a9b057f35 100644
--- a/Master/tlpkg/dev/download-package-repository
+++ b/Master/tlpkg/dev/download-package-repository
@@ -71,6 +71,15 @@ sub main {
}
info("Cloning package repository from $location\n");
+ $::archivedir = "__ARCHIVE__";
+ if (-d "$::localrepo/$Archive") {
+ rename("$::localrepo/$Archive", "$::localrepo/$::archivedir") ||
+ die "unable to rename $::localrepo/$Archive to $::archivedir: $!";
+ }
+ if (!-d "$::localrepo/$::archivedir") {
+ mkdir("$::localrepo/$::archivedir") ||
+ die "$0: could not create directory $::localrepo/$::archivedir: $!";
+ }
if (!-d "$::localrepo/$InfraLocation" ) {
mkdir("$::localrepo/$InfraLocation") ||
die "$0: cannot create directory $::localrepo/$InfraLocation: $!";
@@ -100,15 +109,6 @@ sub main {
die "unusable repository database at $location\n";
}
- $::archivedir = "__ARCHIVE__";
- if (-d "$::localrepo/$Archive") {
- rename("$::localrepo/$Archive", "$::archivedir") ||
- die "unable to rename $::localrepo/$Archive to $::archivedir: $!";
- }
- if (!-d "$::localrepo/$::archivedir") {
- mkdir("$::localrepo/$::archivedir") ||
- die "$0: could not create directory $::localrepo/$::archivedir: $!";
- }
my $error_count = 0;
for my $pkgname ($tlpdb->list_packages) {
next if $pkgname =~ /^00texlive/;
@@ -120,7 +120,7 @@ sub main {
if ($tlp->srcfiles());
}
if ($error_count == 0) {
- rename("$::localrepo/$::archivedir", "$Archive") ||
+ rename("$::localrepo/$::archivedir", "$::localrepo/$Archive") ||
die "unable to rename $::localrepo/$::archivedir to $Archive: $!";
print("Pacakge repository cloning finished successfully.\n");
return 0;