diff options
| author | Norbert Preining <preining@logic.at> | 2018-06-24 02:09:05 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2018-06-24 02:09:05 +0000 |
| commit | dd42876a9fee2d151acc9477f3f9faf2e1475ce2 (patch) | |
| tree | 2b7b4b1a0740696f4cee354642803cdedf5aef74 /Master/tlpkg | |
| parent | bf9156e531a3f6e83314e834a760ede0ba73cc59 (diff) | |
add forgotten accessor function for alias
git-svn-id: svn://tug.org/texlive/trunk@48080 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
| -rw-r--r-- | Master/tlpkg/TeXLive/TeXCatalogue.pm | 6 |
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 = @_; |