diff options
-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'} } : (); } |