diff options
Diffstat (limited to 'Master/tlpkg/etc/check-on-supported-arch.diff')
-rw-r--r-- | Master/tlpkg/etc/check-on-supported-arch.diff | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/Master/tlpkg/etc/check-on-supported-arch.diff b/Master/tlpkg/etc/check-on-supported-arch.diff new file mode 100644 index 00000000000..e6cc4a6f0ca --- /dev/null +++ b/Master/tlpkg/etc/check-on-supported-arch.diff @@ -0,0 +1,44 @@ +Index: install-tl +=================================================================== +--- install-tl (revision 10739) ++++ install-tl (working copy) +@@ -308,6 +308,17 @@ + + # initialize the correct platform + platform(); ++# before calling setup_programs we check for the existence of ++# $::installerdir/tlpkg/installer/lzmadec.$::_platform_ ++# and if that does not exist we terminate here and tell the user that ++# this platform is not supported ATM ++# first setup the programs without actually checking ++setup_programs ("$::installerdir/tlpkg/installer", "$::_platform_", 1); ++if (! -r $::progs{"lzmadec"}) { ++ # that arch seems to be unsupported ++ tlwarn("It seems that your architecture-operating system combination\n\t$::_platform_\nis not supported at the moment!\nIf you plan to build binaries for it please contact us at tlbuild\@tug.org.\n"); ++ exit 1; ++} + if (!setup_programs ("$::installerdir/tlpkg/installer", "$::_platform_")) { + tlwarn("Couldn't set up the necessary programs.\nCannot continue with installation.\nPlease report to texlive\@tug.org.\n"); + exit 1; +Index: tlpkg/TeXLive/TLUtils.pm +=================================================================== +--- tlpkg/TeXLive/TLUtils.pm (revision 10739) ++++ tlpkg/TeXLive/TLUtils.pm (working copy) +@@ -1022,7 +1022,8 @@ + =cut + + sub setup_programs { +- my ($bindir, $platform) = @_; ++ my ($bindir, $platform, $nocheck) = @_; ++ $nocheck = 0 if !defined($nocheck); + $::progs{'wget'} = "wget"; + if (!defined($platform) || ($platform eq "")) { + # we assume that we run from the DVD, so we can call platform() and +@@ -1045,6 +1046,7 @@ + } elsif (-r "$bindir/wget/wget.$platform") { + $::progs{'wget'} = "$bindir/wget/wget.$platform"; + } ++ return(1) if $nocheck; + # + # check that the programs are actually working + my $nul = "/dev/null"; |