diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2014-12-21 19:57:56 +0300 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2014-12-21 19:57:56 +0300 |
commit | 5745d8df0f15109ba8c85d551f1cde7619497a03 (patch) | |
tree | 6d8789fc6462d4ccd395ab59de472810981786fd /dh_smf | |
parent | ff0b6158d55e6254ae368d1f92c32449f8d3ef1d (diff) | |
download | dh-smf-5745d8df0f15109ba8c85d551f1cde7619497a03.tar.gz |
* Fixed code for skipping milestones.
Diffstat (limited to 'dh_smf')
-rwxr-xr-x | dh_smf | 11 |
1 files changed, 5 insertions, 6 deletions
@@ -185,15 +185,14 @@ foreach my $package ( @{ $dh{DOPACKAGES} } ) { ], ); while ( my ( $svc, $attrs ) = each %{ $xml->{'service'} } ) { - push @services, mkservices( $svc, $attrs ); + push @services, mkservices( $svc, $attrs ) + unless $svc =~ /milestone\//; } } -# Ignore milestones and dummy services. A milestone is usually a dummy service as well - @services = grep { - $_->{'name'} !~ /milestone\// - && $_->{'exec_method'}->{'start'}->{'exec'} ne ':true' - } @services; + # Ignore dummy services. + @services = + grep { $_->{'exec_method'}->{'start'}->{'exec'} ne ':true' } @services; error("No SMF services found in @manifests") unless @services; |