From ba8ca340d0f3c38699715adddc605dde56ee9ab2 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 23 Oct 2018 01:15:00 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLUtils.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg') 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! -- cgit v1.2.3