diff options
| author | Norbert Preining <preining@logic.at> | 2018-10-23 01:15:00 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2018-10-23 01:15:00 +0000 |
| commit | ba8ca340d0f3c38699715adddc605dde56ee9ab2 (patch) | |
| tree | 67d4007f31e0e6e80163261c9c785880bb35789c /Master/tlpkg/TeXLive | |
| parent | 02ad3b32606026211ea12b7108821cbc52836b46 (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')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 10 |
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! |