pf-tools/pf-tools: fix perlcritic postfix sevrity 2

[parmelan-guest at users.alioth.debian.org]

details:   http://hg.debian.org/hg/pf-tools/pf-tools/rev/07e14d5ec87d
changeset: 1065:07e14d5ec87d
user:      "Christophe Caillet <quadchris at free.fr>"
date:      Tue Nov 23 15:56:43 2010 +0100
description:
fix perlcritic postfix sevrity 2

diffstat:

0 files changed

diffs (21 lines):

diff -r d03e580455af -r 07e14d5ec87d lib/PFTools/Structqueries.pm
--- a/lib/PFTools/Structqueries.pm	Tue Nov 23 15:42:01 2010 +0100
+++ b/lib/PFTools/Structqueries.pm	Tue Nov 23 15:56:43 2010 +0100
@@ -373,7 +373,7 @@
     my $cmdline = $host_ref->{'boot'}->{'cmdline'} || q{};
     my $bond_cmdline;
     foreach my $iface ( sort keys %{ $host_ref->{'interfaces'} } ) {
-        next unless $iface =~ m{\A bond }xms;
+        next if ( $iface !~ m{\A bond }xms );
 
         $bond_cmdline
             = qq/bonding.mode=$host_ref->{'interfaces'}->{$iface}->{'mode'}/;
@@ -499,7 +499,7 @@
     my @result = ();
 LINE:
     foreach my $line (@fields) {
-        next unless $line;
+        next if ( not $line );
         my ( $type, $field ) = split qr{ \s+ }xms, $line;
         if ( $type eq 'A' ) {
             push @result, $field;