summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm6
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'})) {