summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-05-24 08:51:01 +0000
committerNorbert Preining <preining@logic.at>2007-05-24 08:51:01 +0000
commit73a07e1fe93eb774cf97e4e140a38a430281aa25 (patch)
treec55665b7572c3ebc883054c7449e999e45ac8756
parent5e6d748fc3255ac8ed23e1ab6324fede6d8e1dfe (diff)
we are getting at it
git-svn-id: svn://tug.org/texlive/trunk@4358 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--new-infra/TLP.pm24
-rw-r--r--new-infra/TLSRC.pm14
2 files changed, 19 insertions, 19 deletions
diff --git a/new-infra/TLP.pm b/new-infra/TLP.pm
index 74d642e8459..6a324a15d44 100644
--- a/new-infra/TLP.pm
+++ b/new-infra/TLP.pm
@@ -129,30 +129,30 @@ sub writeout {
print $fd "execute $_\n";
}
}
- if (defined($self->{'srcfiles'}) && (@{$self->{'srcfiles'}})) {
- print $fd "srcfiles\n";
- foreach (sort @{$self->{'srcfiles'}}) {
- print $fd " $_\n";
- }
- }
- if (defined($self->{'runfiles'}) && (@{$self->{'runfiles'}})) {
- print $fd "runfiles\n";
- foreach (sort @{$self->{'runfiles'}}) {
- print $fd " $_\n";
- }
- }
if (defined($self->{'docfiles'}) && (@{$self->{'docfiles'}})) {
print $fd "docfiles\n";
foreach (sort @{$self->{'docfiles'}}) {
print $fd " $_\n";
}
}
+ if (defined($self->{'srcfiles'}) && (@{$self->{'srcfiles'}})) {
+ print $fd "srcfiles\n";
+ foreach (sort @{$self->{'srcfiles'}}) {
+ print $fd " $_\n";
+ }
+ }
if (defined($self->{'binfiles'}) && (@{$self->{'binfiles'}})) {
print $fd "binfiles\n";
foreach (sort @{$self->{'binfiles'}}) {
print $fd " $_\n";
}
}
+ if (defined($self->{'runfiles'}) && (@{$self->{'runfiles'}})) {
+ print $fd "runfiles\n";
+ foreach (sort @{$self->{'runfiles'}}) {
+ print $fd " $_\n";
+ }
+ }
}
#
diff --git a/new-infra/TLSRC.pm b/new-infra/TLSRC.pm
index f496f384e37..06beb58cac3 100644
--- a/new-infra/TLSRC.pm
+++ b/new-infra/TLSRC.pm
@@ -19,10 +19,10 @@ sub new {
shortdesc => $params{'shortdesc'},
longdesc => $params{'longdesc'},
catalogue => $params{'catalogue'},
- runpatterns => defined($params{'runpatterns'}) ? $params{'runpatterns'} : [],
- srcpatterns => defined($params{'srcpatterns'}) ? $params{'srcpatterns'} : [],
- docpatterns => defined($params{'docpatterns'}) ? $params{'docpatterns'} : [],
- binpatterns => defined($params{'binpatterns'}) ? $params{'binpatterns'} : [],
+ runpatterns => $params{'runpatterns'},
+ srcpatterns => $params{'srcpatterns'},
+ docpatterns => $params{'docpatterns'},
+ binpatterns => $params{'binpatterns'},
executes => defined($params{'executes'}) ? $params{'executes'} : [],
depends => defined($params{'depends'}) ? $params{'depends'} : [],
};
@@ -184,10 +184,10 @@ sub make_tlp {
(defined($self->{'binpatterns'})) )) {
foreach my $md (qw/bibtex context dvips fonts makeindex metafont
metapost mft omega scripts tex vtex/) {
- push @{$self->{'runpatterns'}}, "t texmf-dist $md $tlp";
+ push @{$self->{'runpatterns'}}, "t texmf-dist $md $self->{'name'}";
}
- push @{$self->{'docpatterns'}}, "t texmf-dist doc $tlp";
- push @{$self->{'srcpatterns'}}, "t texmf-dist source $tlp";
+ push @{$self->{'docpatterns'}}, "t texmf-dist doc $self->{'name'}";
+ push @{$self->{'srcpatterns'}}, "t texmf-dist source $self->{'name'}";
}
my $tlp = TLP->new;
$tlp->name($self->name);