diff options
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 30f1a41219e..fdc5badeb47 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -72,6 +72,7 @@ BEGIN { } use Cwd qw/abs_path/; +use File::Spec; use Digest::MD5; use Pod::Usage; use Getopt::Long qw(:config no_autoabbrev permute); @@ -3525,6 +3526,12 @@ sub action_repository { tlwarn("$prg: no repository given (to add)\n"); return; } + # check if it is either url or absolute path + if (($p !~ m!^(http|ftp)://!u) && + !File::Spec->file_name_is_absolute($p)) { + tlwarn("$prg: neither http/ftp URL nor absolute path, no action: $p\n"); + return; + } my $t = shift @ARGV; $t = $p if (!defined($t)); if (defined($repos{$t})) { |