perl_checker cleanups

1 files changed, 4 insertions, 5 deletions

diff --git a/mdkupdate b/mdkupdate
index 25b734cd..6265634b 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -57,7 +57,6 @@ my $YEARS = "2002-2006";
 mkdir_p($confdir) if !-d $confdir;
 -e '/root/.mdkupdate' and system "/bin/mv", "/root/.mdkupdate", $conffile;
 
-my ($scheduled, $noscheduled);
 
 sub usage() {
     print STDERR N("mdkupdate version %s
@@ -144,7 +143,7 @@ if (!$bundle) {
     print Dumper($bundle_info);
     if ($bundle_info->{status}) {
 	my @bundles;
-	my ($media, $mirrors, $bundle) = ($bundle_info->{data}->{media_name}, $bundle_info->{data}->{mirrors}, $bundle_info->{data}->{bundle});
+	my ($media, $mirrors, $bundle) = ($bundle_info->{data}{media_name}, $bundle_info->{data}{mirrors}, $bundle_info->{data}{bundle});
 	add_media($media, $_, 'hdlist.cz', '') foreach keys %$mirrors;
 	$bundle =~ s/\.rpm$//;
 	push(@bundles, $bundle);
@@ -159,7 +158,7 @@ sub ask_pkgs {
 			      {
 			       node_state => sub { $pkgs->{$_[0]}{selected} ? 'selected' : 'unselected' },
 			       build_tree => sub {
-				   my ($add_node, $flat) = @_;
+				   my ($add_node, $_flat) = @_;
 				   $add_node->($_, undef) foreach sort keys %$pkgs;
 			       },
 			       grep_unselected => sub { grep { !$pkgs->{$_}{selected} } @_ },
@@ -257,13 +256,13 @@ sub update_pkgs {
     return 1;
 }
 
-sub get_rpm_diff {
+sub get_rpm_diff() {
     my $isdif = `sdiff -s $afterrpm $currentrpm`;
     $isdif and output_p($difflog, $isdif), return 1;
     return 0;
 }
 
-sub new_rpm_base {
+sub new_rpm_base() {
     -f $afterrpm and system('/bin/mv', $afterrpm, $currentrpm);
 }