diff options
| author | Norbert Preining <preining@logic.at> | 2016-06-21 12:42:14 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2016-06-21 12:42:14 +0000 |
| commit | c468712cf9f01ab63bc46a8fab3de7e6a87b4735 (patch) | |
| tree | 9055f95741414379446680364e1606a2d923cd4f /Master | |
| parent | 85e1ad079f3d4f22a4e5d7e1eb7dc2cac13ed051 (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.pm | 1 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 2 |
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'} } : (); } |