summaryrefslogtreecommitdiff
path: root/Master/setuptl/TLPM/constants.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/setuptl/TLPM/constants.pm')
-rw-r--r--Master/setuptl/TLPM/constants.pm15
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';
}