Reduce perl_checker noise.

1 files changed, 7 insertions, 8 deletions

diff --git a/lib/MGA/DrakISO/BuildMedia.pm b/lib/MGA/DrakISO/BuildMedia.pm
index 6672367..98473a3 100644
--- a/lib/MGA/DrakISO/BuildMedia.pm
+++ b/lib/MGA/DrakISO/BuildMedia.pm
@@ -90,13 +90,13 @@ sub prepare_media {
 
     include_groups  ($build, $build->{group_include_lists});
     exclude_packages($build, $build->{group_exclude_lists});
-    update_dependencies($build);
+    update_dependencies();
 
     include_packages($build, $build->{package_include_lists});
-    update_dependencies($build);
+    update_dependencies();
 
     exclude_packages($build, $build->{package_exclude_lists});
-    update_dependencies($build);
+    update_dependencies();
 
     build_installer_media($build);
 
@@ -182,8 +182,8 @@ sub get_available_packages {
     urpm::set_files($urpm, $build->get_chroot_dir);
     urpm::get_global_options($urpm);
 
-    $urpm->{info} = sub { };
-    $urpm->{log}  = sub { };
+    $urpm->{info} = sub {};
+    $urpm->{log}  = sub {};
 
     urpm::media::configure($urpm);
 
@@ -381,8 +381,7 @@ sub exclude_packages {
 # Package Dependency Detection
 ###############################################################################
 
-sub update_dependencies {
-    my ($build) = @_;
+sub update_dependencies() {
 
     print "Calculating dependencies\n" if $::verbose;
 
@@ -669,7 +668,7 @@ sub update_package_selection {
                 $name =~ s/\*/.*/g;
                 my @candidates = grep { $_ =~ /^$name$/ } keys %package;
                 foreach (@candidates) {
-                    $action->($file, $_, $class) ;
+                    $action->($file, $_, $class);
                 }
             } else {
                 $action->($file, $name, $class, $o_warn);