diff options
author | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2018-01-13 17:41:42 +0000 |
---|---|---|
committer | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2018-01-14 22:41:08 +0000 |
commit | 81a42ed35e61de32d82ac0e8c406841d5f37d53f (patch) | |
tree | 207a7b62380c0417d0ee5600426be910fd8309e0 /lib/MGA/DrakISO/BuildMedia.pm | |
parent | d1a2765a504a8e86ee4b99bcc03a4c05f026bdbb (diff) | |
download | drakiso-81a42ed35e61de32d82ac0e8c406841d5f37d53f.tar drakiso-81a42ed35e61de32d82ac0e8c406841d5f37d53f.tar.gz drakiso-81a42ed35e61de32d82ac0e8c406841d5f37d53f.tar.bz2 drakiso-81a42ed35e61de32d82ac0e8c406841d5f37d53f.tar.xz drakiso-81a42ed35e61de32d82ac0e8c406841d5f37d53f.zip |
Reduce perl_checker noise.
Diffstat (limited to 'lib/MGA/DrakISO/BuildMedia.pm')
-rw-r--r-- | lib/MGA/DrakISO/BuildMedia.pm | 15 |
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); |