diff options
Diffstat (limited to 'new-infra/TLP.pm')
-rw-r--r-- | new-infra/TLP.pm | 24 |
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'} } = @_ } |