From 78bd6b24f3c38ea9be1371b6180fa90b76221e21 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 5 Nov 2007 00:05:40 +0000 Subject: (archs): try to avoid uninitialized value in array dereference. git-svn-id: svn://tug.org/texlive/trunk@5344 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLTREE.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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; } -- cgit v1.2.3