diff options
Diffstat (limited to 'lib/MGA/DrakISO/BuildMedia.pm')
| -rw-r--r-- | lib/MGA/DrakISO/BuildMedia.pm | 8 |
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]; |