summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl14
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index 83a546fe351..58ff323dc41 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -4626,7 +4626,14 @@ sub action_recreate_tlpdb {
# CHECK
#
sub init_tltree {
- my $svn = shift;
+ my ($svn) = @_;
+
+ # if we are on W32, die (no find).
+ my $arch = $localtlpdb->platform();
+ if ($arch eq "win32") {
+ tldie("$prg: sorry, cannot check this on Windows.\n");
+ }
+
my $Master = $localtlpdb->root;
my $tltree = TeXLive::TLTREE->new ("svnroot" => $Master);
if ($svn) {
@@ -4723,11 +4730,6 @@ sub check_files {
print "\n";
}
- # if we are on W32, return (no find). We need -use-svn only for
- # checking the live repository on tug, which is not w32.
- my $arch = $localtlpdb->platform();
- return $ret if $arch eq "win32";
-
# check that all files in the trees are covered, along with
# 00texlive.image, q.v. The ones here are not included in the
# archival source/ tarball;