summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl7
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})) {