summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-11-05 00:05:40 +0000
committerKarl Berry <karl@freefriends.org>2007-11-05 00:05:40 +0000
commit78bd6b24f3c38ea9be1371b6180fa90b76221e21 (patch)
tree3bfb51387830565b9e3db2c26dfc3d6bc99b529b
parentc3ba0a5792b07622c1fe41ff4cafaf8aee4f24b6 (diff)
(archs): try to avoid uninitialized value in array dereference.
git-svn-id: svn://tug.org/texlive/trunk@5344 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm4
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;
}