From c468712cf9f01ab63bc46a8fab3de7e6a87b4735 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Tue, 21 Jun 2016 12:42:14 +0000
Subject: some fixes for empty arch borderline cases in TLTREE

git-svn-id: svn://tug.org/texlive/trunk@41511 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLPDB.pm  | 1 +
 Master/tlpkg/TeXLive/TLTREE.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 6d623daaa6e..48f95e6f260 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -292,6 +292,7 @@ sub from_file {
     } else {
       # we cannot find the right type, return undefined, that should
       # make people notice
+      tlwarn("Cannot determine type of tlpdb!\n");
       return 0;
     }
   }
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 766ac36022e..fe3689302b0 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -366,7 +366,7 @@ sub revision {
 sub architectures {
   my $self = shift;
   if (@_) { @{ $self->{'archs'} } = @_ }
-  return exists $self->{'archs'} ? @{ $self->{'archs'} } : undef;
+  return defined $self->{'archs'} ? @{ $self->{'archs'} } : ();
 }
 
 
-- 
cgit v1.2.3