summaryrefslogtreecommitdiff
path: root/Master/setuptl/TLPM/pkg.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/setuptl/TLPM/pkg.pm')
-rw-r--r--Master/setuptl/TLPM/pkg.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/Master/setuptl/TLPM/pkg.pm b/Master/setuptl/TLPM/pkg.pm
index 1a969f355e5..a02cc4e9b8b 100644
--- a/Master/setuptl/TLPM/pkg.pm
+++ b/Master/setuptl/TLPM/pkg.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
# packages handling
@@ -154,7 +154,9 @@ sub set_source
unless($batch_mode) # the last chance is prompt
{
print STDOUT "TeX Live source drive: ";
- $tl_source = <STDIN>;chomp $tl_source;
+ $tl_source = <STDIN>;
+ chomp $tl_source;
+ &resolve_env($tl_source);
if(&is_tl_root($tl_source))
{
return(0);
@@ -170,7 +172,9 @@ sub set_source
unless($batch_mode)
{
print STDOUT "TeX Live source mounting point: ";
- $tl_source = <STDIN>;chomp $tl_source;
+ $tl_source = <STDIN>;
+ chomp $tl_source;
+ &resolve_env($tl_source);
if(&is_tl_root($tl_source))
{
return(0);
@@ -264,7 +268,7 @@ sub set_target
{
&set_target_();
}
- # we tried to test if the directory is writable, but even CD drive respond to be writable...
+ # I tried to test if the directory is writable, but even CD drive respond to be writable...
#unless(-w $tl_target)
#{
# &undef_target();
@@ -277,6 +281,7 @@ sub set_target
sub set_target_
{
&norm_path($tl_target);
+ &resolve_env($tl_target);
$tl_target = &rel2abs($tl_target,$curr_dir);
$tl_target_indeed = $true;
}