From 0a90f0baf2b522b2c74278e0e7dcd3e3ff97bca5 Mon Sep 17 00:00:00 2001 From: Martin Whitaker Date: Thu, 4 Jan 2018 11:06:51 +0000 Subject: Code cleanup. --- lib/MGA/DrakISO/BuildMedia.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/MGA/DrakISO') diff --git a/lib/MGA/DrakISO/BuildMedia.pm b/lib/MGA/DrakISO/BuildMedia.pm index 497012a..31b1f1c 100644 --- a/lib/MGA/DrakISO/BuildMedia.pm +++ b/lib/MGA/DrakISO/BuildMedia.pm @@ -385,11 +385,11 @@ sub update_dependencies { while (@search_list) { foreach my $name (@search_list) { my $pkg = $package{$name}{best_pkg}; - my $parent_name = $pkg->name(); - my @requires = $pkg->requires_nosense(); + my $parent_name = $pkg->name; + my @requires = $pkg->requires_nosense; $urpm->traverse_tag('whatprovides', \@requires, sub { my ($pkg) = @_; - my $name = $pkg->name(); + my $name = $pkg->name; # kernel and kmod packages embed the kernel version and release # in the package name (and always have a version-release of 1-1) # so we have to do a bit of fancy footwork here to ensure we @@ -449,7 +449,7 @@ sub build_installer_media { foreach my $pkg (uniq($package{$name}{best_pkg}, $package{$name}{base_pkg})) { defined $pkg or next; my @medium = grep { $pkg->id >= $_->{start} && $pkg->id <= $_->{end} } @{$urpm->{media}}; - my $src_path = $medium[0]->{url} . '/' . $pkg->filename(); + my $src_path = $medium[0]->{url} . '/' . $pkg->filename; my @path_parts = split('/', $src_path); my $class = $path_parts[-3]; my $name = $path_parts[-1]; -- cgit v1.2.1