diff options
| author | Karl Berry <karl@freefriends.org> | 2007-11-05 00:05:40 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2007-11-05 00:05:40 +0000 |
| commit | 78bd6b24f3c38ea9be1371b6180fa90b76221e21 (patch) | |
| tree | 3bfb51387830565b9e3db2c26dfc3d6bc99b529b /Master/tlpkg/TeXLive/TLTREE.pm | |
| parent | c3ba0a5792b07622c1fe41ff4cafaf8aee4f24b6 (diff) | |
(archs): try to avoid uninitialized value in array dereference.
git-svn-id: svn://tug.org/texlive/trunk@5344 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 4 |
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; } |