summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-09-27 19:29:54 +0000
committerNorbert Preining <preining@logic.at>2008-09-27 19:29:54 +0000
commitc5d8b15a435d5cd23ed79f8dc5f857aee40157e2 (patch)
tree9295204cb9289b113f680dea8b5adead791409cf
parenteb8eb3b6bdfe51ef3dfd011dee70f5381557a99b (diff)
add a patch that makes an initial check on the supported architectures
git-svn-id: svn://tug.org/texlive/trunk@10749 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/etc/check-on-supported-arch.diff44
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";