summaryrefslogtreecommitdiff
path: root/new-infra/TLP.pm
diff options
context:
space:
mode:
Diffstat (limited to 'new-infra/TLP.pm')
-rw-r--r--new-infra/TLP.pm24
1 files changed, 14 insertions, 10 deletions
diff --git a/new-infra/TLP.pm b/new-infra/TLP.pm
index d3d12aebccb..74d642e8459 100644
--- a/new-infra/TLP.pm
+++ b/new-infra/TLP.pm
@@ -16,12 +16,12 @@ sub new {
shortdesc => $params{'shortdesc'},
longdesc => $params{'longdesc'},
catalogue => $params{'catalogue'},
- runfiles => $params{'runfiles'},
- srcfiles => $params{'srcpatterns'},
- docfiles => $params{'docfiles'},
- binfiles => $params{'binfiles'},
- executes => $params{'executes'},
- depends => $params{'depends'},
+ runfiles => defined($params{'runfiles'}) ? $params{'runfiles'} : [],
+ srcfiles => defined($params{'srcfiles'}) ? $params{'srcfiles'} : [],
+ docfiles => defined($params{'docfiles'}) ? $params{'docfiles'} : [],
+ binfiles => defined($params{'binfiles'}) ? $params{'binfiles'} : [],
+ executes => defined($params{'executes'}) ? $params{'executes'} : [],
+ depends => defined($params{'depends'}) ? $params{'depends'} : [],
revision => $params{'revision'},
};
bless $self, $class;
@@ -131,25 +131,25 @@ sub writeout {
}
if (defined($self->{'srcfiles'}) && (@{$self->{'srcfiles'}})) {
print $fd "srcfiles\n";
- foreach (@{$self->{'srcfiles'}}) {
+ foreach (sort @{$self->{'srcfiles'}}) {
print $fd " $_\n";
}
}
if (defined($self->{'runfiles'}) && (@{$self->{'runfiles'}})) {
print $fd "runfiles\n";
- foreach (@{$self->{'runfiles'}}) {
+ foreach (sort @{$self->{'runfiles'}}) {
print $fd " $_\n";
}
}
if (defined($self->{'docfiles'}) && (@{$self->{'docfiles'}})) {
print $fd "docfiles\n";
- foreach (@{$self->{'docfiles'}}) {
+ foreach (sort @{$self->{'docfiles'}}) {
print $fd " $_\n";
}
}
if (defined($self->{'binfiles'}) && (@{$self->{'binfiles'}})) {
print $fd "binfiles\n";
- foreach (@{$self->{'binfiles'}}) {
+ foreach (sort @{$self->{'binfiles'}}) {
print $fd " $_\n";
}
}
@@ -219,6 +219,10 @@ sub add_runfiles {
my ($self,@files) = @_;
push @{ $self->{'runfiles'} }, @files;
}
+sub add_files {
+ my ($self,$type,@files) = @_;
+ push @{ $self->{$type} }, @files;
+}
sub depends {
my $self = shift;
if (@_) { @{ $self->{'depends'} } = @_ }