we are getting at it

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

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);