summaryrefslogtreecommitdiffstats
path: root/lib/MGA/DrakISO
diff options
context:
space:
mode:
authorMartin Whitaker <mageia@martin-whitaker.me.uk>2018-01-04 11:06:51 +0000
committerMartin Whitaker <mageia@martin-whitaker.me.uk>2018-01-04 11:06:51 +0000
commit0a90f0baf2b522b2c74278e0e7dcd3e3ff97bca5 (patch)
treee75dfd25b668b69a84899bbb4835c4d97f7572f2 /lib/MGA/DrakISO
parentabcda65bfa9bbf5c9448cf39af8b70214e937d87 (diff)
downloaddrakiso-0a90f0baf2b522b2c74278e0e7dcd3e3ff97bca5.tar
drakiso-0a90f0baf2b522b2c74278e0e7dcd3e3ff97bca5.tar.gz
drakiso-0a90f0baf2b522b2c74278e0e7dcd3e3ff97bca5.tar.bz2
drakiso-0a90f0baf2b522b2c74278e0e7dcd3e3ff97bca5.tar.xz
drakiso-0a90f0baf2b522b2c74278e0e7dcd3e3ff97bca5.zip
Code cleanup.
Diffstat (limited to 'lib/MGA/DrakISO')
-rw-r--r--lib/MGA/DrakISO/BuildMedia.pm8
1 files changed, 4 insertions, 4 deletions
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];