summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-27 22:03:03 +0000
committerKarl Berry <karl@freefriends.org>2014-04-27 22:03:03 +0000
commit30a0956499b987250f40dc21aa9a6eb19dbb53d7 (patch)
treebfba01262fbdcff2a5faf76a3f8397b2ae9134d3 /Master/texmf-dist
parent91902847bcaea1c8409513e12025c81394ff4086 (diff)
(init_tltree): move check for w32 from check_files
to here, since TLTree.pm needs find to run. git-svn-id: svn://tug.org/texlive/trunk@33701 c570f23f-e606-0410-a88d-b1316a301751
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;