diff options
Diffstat (limited to 'Master/setuptl/TLPM/constants.pm')
-rw-r--r-- | Master/setuptl/TLPM/constants.pm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/Master/setuptl/TLPM/constants.pm b/Master/setuptl/TLPM/constants.pm index e0ff1069127..b7a85c69a8f 100644 --- a/Master/setuptl/TLPM/constants.pm +++ b/Master/setuptl/TLPM/constants.pm @@ -1,4 +1,4 @@ -# This file belongs to TLPM v2.17, TeX Live Package Manager +# This file belongs to TLPM v2.19, TeX Live Package Manager # Public Domain, P.Jackowski@gust.org.pl # widely used constants @@ -10,7 +10,9 @@ $false = 0; $reg_file = qr/([^\/\\]+)\z/o; $reg_dirsep = qr/[\/\\]/o; # not /(\/|\\)/ + # TLPM was originally windowish and is tested mostly on windows so + unless(defined $tlpm_os){$tlpm_os = 'win32'} # if in distribution, always defined in BEGIN block if($tlpm_os eq 'win32'){$win32 = $true} @@ -34,6 +36,7 @@ $parent_dir = &rel2abs('..',$curr_dir); # tlpm related constants +$tlpm_version ||= "_devel"; $tlpm_prompt = "tlpm" . $tlpm_version . ">"; $tlpm_log = $chr_dirsep . "tlpm.log"; # log file @@ -47,11 +50,15 @@ $tl_lists = $tl_texmf . $chr_dirsep . "lists"; $chr_dirsep . "texmf-dist" . $chr_dirsep . "tpm", $chr_dirsep . "texmf-doc" . $chr_dirsep . "tpm"); -# paths to source TL directory (relative to mounting point / drive) +# paths to source TL directory (relative to CD/DVD mounting point / drive) @tl_roots = ('', $chr_dirsep . "texlive", - $chr_dirsep . "texlive2004"); + $chr_dirsep . "texlive2004", + # $chr_dirsep . "texlive2005", + # $chr_dirsep . "texlive2006", + # $chr_dirsep . "texlive2007" + ); # ZIP archive @@ -67,7 +74,7 @@ if($win32) } else { - $tl_unzip = sub {return "unzip"}; # assuming in system + $tl_unzip = sub {return "unzip"}; # assuming available in the system $tl_xcopy = "cp"; $sys_redir = '>/dev/null'; } |