diff options
Diffstat (limited to 'Master/setuptl/TLPM/pkg.pm')
-rw-r--r-- | Master/setuptl/TLPM/pkg.pm | 13 |
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; } |