texlive[41511] Master/tlpkg/TeXLive: some fixes for empty arch

[commits+preining at tug.org]

Revision: 41511
          http://tug.org/svn/texlive?view=revision&revision=41511
Author:   preining
Date:     2016-06-21 14:42:14 +0200 (Tue, 21 Jun 2016)
Log Message:
-----------
some fixes for empty arch borderline cases in TLTREE

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPDB.pm
    trunk/Master/tlpkg/TeXLive/TLTREE.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPDB.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPDB.pm	2016-06-21 01:15:09 UTC (rev 41510)
+++ trunk/Master/tlpkg/TeXLive/TLPDB.pm	2016-06-21 12:42:14 UTC (rev 41511)
@@ -292,6 +292,7 @@
     } else {
       # we cannot find the right type, return undefined, that should
       # make people notice
+      tlwarn("Cannot determine type of tlpdb!\n");
       return 0;
     }
   }

Modified: trunk/Master/tlpkg/TeXLive/TLTREE.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLTREE.pm	2016-06-21 01:15:09 UTC (rev 41510)
+++ trunk/Master/tlpkg/TeXLive/TLTREE.pm	2016-06-21 12:42:14 UTC (rev 41511)
@@ -366,7 +366,7 @@
 sub architectures {
   my $self = shift;
   if (@_) { @{ $self->{'archs'} } = @_ }
-  return exists $self->{'archs'} ? @{ $self->{'archs'} } : undef;
+  return defined $self->{'archs'} ? @{ $self->{'archs'} } : ();
 }