diff options
Diffstat (limited to 'Master/setuptl/TLPM/pkg.pm')
-rw-r--r-- | Master/setuptl/TLPM/pkg.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/setuptl/TLPM/pkg.pm b/Master/setuptl/TLPM/pkg.pm index b3e53ac200c..def04a44d21 100644 --- a/Master/setuptl/TLPM/pkg.pm +++ b/Master/setuptl/TLPM/pkg.pm @@ -1,4 +1,4 @@ -# This file belongs to TLPM v2.14, TeX Live Package Manager +# This file belongs to TLPM v2.16, TeX Live Package Manager # Public Domain, P.Jackowski@gust.org.pl # reading packages (internal functions) @@ -14,8 +14,8 @@ $target_pkges = \%target_packages; sub read_pkges # used for reading both source and target packages { my ($dir,$pkges) = @_; # <root_directory> <hash_reference> - # Staszek Wawrykiewicz reports that the condition '-d E:' doesn't work in some cases. - # Not reproduced... However, '-d X:\texmf' works fine, so + # StaW reports that the condition alike '-d E:' doesn't work in some cases. + # Not reproduced... However, '-d E:\texmf' works fine, so unless(-d $dir || -d "$dir$tl_texmf") { return $error{'miss_dir'} -> ($dir); @@ -29,7 +29,7 @@ sub read_pkges # used for reading both source and target packages local (*DIR,*INP); $message -> ("Reading packages from '$dir'..."); opendir(DIR,$dir) or return $error{'cant_odir'} -> ($dir); - readdir DIR; readdir DIR; # remove '.' and '..'; dirty but works and make things faster + readdir DIR; readdir DIR; # remove '.' and '..'; dirty but works and make things a bit faster foreach $pkg (readdir DIR) { ($pcount,$fcount) = (0,0); |