diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index d25f4803135..c3a731fe84b 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -222,6 +222,9 @@ sub from_file { } elsif ($line =~ /^tlpsetvar\s+([-_a-zA-Z0-9]+)\s+(.*)$/) { $tlpvars{$1} = $2; + } elsif ($line =~ /^catalogue-(.+)\s*(.*)$/o) { + $self->{'cataloguedata'}{$1} = $2 if defined $2; + } else { die "$srcfile:$lineno: unknown tlpsrc directive, fix: $line\n"; } @@ -335,6 +338,7 @@ sub make_tlpobj { $tlp->shortdesc($self->{'shortdesc'}) if (defined($self->{'shortdesc'})); $tlp->longdesc($self->{'longdesc'}) if (defined($self->{'longdesc'})); $tlp->catalogue($self->{'catalogue'}) if (defined($self->{'catalogue'})); + $tlp->cataloguedata(%{$self->{'cataloguedata'}}) if (defined($self->{'cataloguedata'})); $tlp->executes(@{$self->{'executes'}}) if (defined($self->{'executes'})); $tlp->postactions(@{$self->{'postactions'}}) if (defined($self->{'postactions'})); $tlp->depends(@{$self->{'depends'}}) if (defined($self->{'depends'})); @@ -688,6 +692,12 @@ sub catalogue { if (@_) { $self->{'catalogue'} = shift } return $self->{'catalogue'}; } +sub cataloguedata { + my $self = shift; + my %ct = @_; + if (@_) { $self->{'cataloguedata'} = \%ct } + return $self->{'cataloguedata'}; +} sub srcpatterns { my $self = shift; if (@_) { @{ $self->{'srcpatterns'} } = @_ } |