From 0a90f0baf2b522b2c74278e0e7dcd3e3ff97bca5 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
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/BuildMedia.pm')

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