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