summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-06-21 12:42:14 +0000
committerNorbert Preining <preining@logic.at>2016-06-21 12:42:14 +0000
commitc468712cf9f01ab63bc46a8fab3de7e6a87b4735 (patch)
tree9055f95741414379446680364e1606a2d923cd4f /Master
parent85e1ad079f3d4f22a4e5d7e1eb7dc2cac13ed051 (diff)
some fixes for empty arch borderline cases in TLTREE
git-svn-id: svn://tug.org/texlive/trunk@41511 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm1
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm2
2 files changed, 2 insertions, 1 deletions
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'} } : ();
}