From 405dcbdf3bacec10202779d05bd5db22db168c13 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Sun, 7 Oct 2007 21:10:48 +0000 Subject: TLUtils.pm: bugfixes. install-tl.pl: new, but far from being ready. git-svn-id: svn://tug.org/texlive/trunk@5133 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 62c24a9aa39..8418aa23aea 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -134,7 +134,10 @@ sub platform { if (-d "/usr/bin") { my $CPU; # CPU type as reported by config.guess. my $OS; # O/S type as reported by config.guess. - my $guessed_platform=`$::_installerdir_/config.guess`; + # We cannot rely on #! in config.guess but have to call /bin/sh + # explicitly because sometimes the 'noexec' flag is set in + # /etc/fstab for ISO9660 file systems. + my $guessed_platform=`/bin/sh $::_installerdir_/config.guess`; chomp $guessed_platform; ($CPU=$guessed_platform)=~s/(.*?)-.*/$1/; foreach my $os (@OSs) { @@ -538,7 +541,7 @@ sub binaries_available_from_disk { if (&media eq "CD") { opendir DIR, "$::_installerdir_/archive"; } elsif (&media eq "DVD") { - opendir DIR, "$::_installerdir_/texmf/bin"; + opendir DIR, "$::_installerdir_/bin"; } else { die "Media type must be CD or DVD.\n"; } @@ -551,8 +554,8 @@ sub binaries_available_from_disk { } } } elsif (&media eq "DVD") { - for (@dir) { - push @platforms, $1 unless (/^\./); + for my $platform (@dir) { + push @platforms, $platform unless ($platform=~/^\./); } } else { die "Media type must be CD or DVD.\n"; -- cgit v1.2.3