(archs): try to avoid uninitialized value in array dereference.

git-svn-id: svn://tug.org/texlive/trunk@5344 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 3 insertions, 1 deletions

diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 652894ef06b..545ba366ac2 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -314,15 +314,17 @@ sub svnroot {
   if (@_) { $self->{'svnroot'} = shift };
   return $self->{'svnroot'};
 }
+
 sub architectures {
   my $self = shift;
   if (@_) { @Architectures = @_ }
   return @Architectures;
 }
+
 sub archs {
   my $self = shift;
   if (@_) { @{ $self->{'archs'} } = @_ }
-  return @{ $self->{'archs'} };
+  return exists $self->{'archs'} ? @{ $self->{'archs'} } : undef;
 }