add forgotten accessor function for alias

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

1 files changed, 6 insertions, 0 deletions

diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm
index 32423f530ea..f4537b2e1e7 100644
--- a/Master/tlpkg/TeXLive/TeXCatalogue.pm
+++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm
@@ -177,6 +177,12 @@ sub entry {
   if (@_) { $self->{'entry'} = \%newentry }
   return $self->{'entry'};
 }
+sub alias {
+  my $self = shift;
+  my @newalias = @_;
+  if (@_) { $self->{'alias'} = \@newalias }
+  return $self->{'alias'};
+}
 sub also {
   my $self = shift;
   my @newalso = @_;