summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-10-23 01:15:00 +0000
committerNorbert Preining <preining@logic.at>2018-10-23 01:15:00 +0000
commitba8ca340d0f3c38699715adddc605dde56ee9ab2 (patch)
tree67d4007f31e0e6e80163261c9c785880bb35789c /Master/tlpkg/TeXLive/TLUtils.pm
parent02ad3b32606026211ea12b7108821cbc52836b46 (diff)
TLUtils: don't die on empty location, but return empty array
git-svn-id: svn://tug.org/texlive/trunk@48975 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index e167008ed19..54d94de39c9 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -4320,8 +4320,14 @@ passed in C<$r>. If passed undef or empty string, die.
sub repository_to_array {
my $r = shift;
my %r;
- die "internal error, repository_to_array passed nothing (caller="
- . caller . ")" if (!$r);
+ if (!$r) {
+ # either empty string or undef was passed
+ # before 20181023 we die here, now we return
+ # an empty array
+ return %r;
+ }
+ #die "internal error, repository_to_array passed nothing (caller="
+ # . caller . ")" if (!$r);
my @repos = split (' ', $r);
if ($#repos == 0) {
# only one repo, this is the main one!