texlive[48975] Master/tlpkg/TeXLive/TLUtils.pm: TLUtils: don't die on

[commits+preining at tug.org]

Revision: 48975
          http://tug.org/svn/texlive?view=revision&revision=48975
Author:   preining
Date:     2018-10-23 03:15:00 +0200 (Tue, 23 Oct 2018)
Log Message:
-----------
TLUtils: don't die on empty location, but return empty array

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2018-10-23 00:23:16 UTC (rev 48974)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2018-10-23 01:15:00 UTC (rev 48975)
@@ -4320,8 +4320,14 @@
 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!