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

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";