From 6741cc739968a4b401ae09ffcc0ea72893777916 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 20 Feb 2007 14:18:13 +0000
Subject: perl_checker cleanups

---
 park-rpmdrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'park-rpmdrake')

diff --git a/park-rpmdrake b/park-rpmdrake
index 587e2d70..6cc66b35 100755
--- a/park-rpmdrake
+++ b/park-rpmdrake
@@ -150,7 +150,7 @@ sub populated_networks_to_raw_hosts {
     @{$group->{networks}} = grep { 
 	my @l = grep { $_->{selected} } $_->{mask_class} ? @{$_->{hosts}} : $_;
 	push @hosts, @l;
-	$_->{mask_class} && @l
+	$_->{mask_class} && @l;
     } @{$group->{networks}};
 
     $group->{raw_hosts} = [ map { host_to_raw_host($_) } @hosts ];
@@ -394,7 +394,7 @@ sub group_modify {
 		my $s = $tree_model->get($_[0], 1);
 		my $host = find { $s eq $_->{ip} } @{$network->{hosts}};
 		$host->{selected} = $tree_model->get($_[0], 0);
-	    })
+	    });
 	});
     };
 
-- 
cgit v1.2.1