diff options
| author | Norbert Preining <preining@logic.at> | 2007-11-29 15:30:40 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2007-11-29 15:30:40 +0000 |
| commit | 495401a178913dd4622aacc25978c252a6a1ca91 (patch) | |
| tree | 5e3bce0bc2dd29b352db950ed7d86014352b6e00 /Master/tlpkg/TeXLive | |
| parent | 3ccc631fabfef36be01565d0de3b6c8bdee69a04 (diff) | |
various fixes to the installer
git-svn-id: svn://tug.org/texlive/trunk@5650 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLConfig.pm | 3 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
2 files changed, 7 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLConfig.pm b/Master/tlpkg/TeXLive/TLConfig.pm index b883f3488de..4fc3996d0a6 100644 --- a/Master/tlpkg/TeXLive/TLConfig.pm +++ b/Master/tlpkg/TeXLive/TLConfig.pm @@ -41,6 +41,9 @@ our $InfraLocation = "tlpkg"; our $BlockSize = 4096; +# the way we package things on the web +our $DefaultContainerExtension = ".tar.lzma"; + 1; diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index dd65f308b21..b28af9421e3 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -477,7 +477,7 @@ sub install_package { # either a list of files or a name of one .zip or .tar.lzma file. my @what=@_; - my $target="$::vars{'TEXMF'}"; + my $target="$::vars{'TEXDIR'}"; my $bindir="$::installerdir/tlpkg/bin"; my $platform=&platform; my $buffer; @@ -496,7 +496,9 @@ sub install_package { if (&media eq 'DVD') { foreach my $file (@what) { - copy "$file", "$target"; + my $dn=dirname($file); + mkdirhier("$target/$dn"); + copy "$file", "$target/$dn"; } } elsif (&media eq 'CD') { my $package="$::installerdir/archive/$what[0]"; |