diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 7296e9dc33d..55000384f64 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -75,6 +75,8 @@ argument C<root> is given it will be initialized from the respective location within $path. If C<$path> begins with C<http://> or C<ftp://>, the program C<wget> is used to download the file. +The C<$path> can start with C<file:/> in which case it is treated as +a file on the filesystem in the usual way. =cut @@ -175,7 +177,7 @@ sub remove_package { The C<from_file> function initializes the C<TLPDB> in case the root was not given at generation time. If C<$filename> begins with C<http://> or C<ftp://>, the program C<wget> is used to download -the file. +the file. The prefix C<file:/> is treated the expected way. =cut @@ -194,7 +196,7 @@ sub from_file { $self->root($root_from_path); } my $retfh; - if ($path =~ /^(http|ftp):\/\//) { + if ($path =~ m;^((http|ftp)://|file:\/\/*);) { debug("TLPDB.pm: trying to initialize from $path\n"); # if we have lzmadec available we try the lzma file if (defined($::progs{'lzmadec'})) { |