diff options
Diffstat (limited to 'new-infra/TLP.pm')
-rw-r--r-- | new-infra/TLP.pm | 24 |
1 files changed, 12 insertions, 12 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"; + } + } } # |