diff options
| -rw-r--r-- | perl-install/pkgs.pm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 39cdb3955..d1d22770e 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -114,7 +114,6 @@ sub selectedSize { } $size; } -sub correctedSelectedSize { correctSize(selectedSize($_[0]) / sqr(1024)) } sub size2time { my ($x, $max) = @_; @@ -161,11 +160,6 @@ sub packageByName { $best or log::l("unknown package `$name'"); $best; } -sub packageById { - my ($packages, $id) = @_; - my $pkg = $packages->{depslist}[$id]; #- do not log as id unsupported are still in depslist. - $pkg->is_arch_compat && $pkg; -} sub analyse_kernel_name { my $kernels = join('|', map { "-$_" } @@ -326,10 +320,6 @@ sub unselectPackage($$;$) { } 1; } -sub setPackageSelection($$$) { - my ($packages, $pkg, $value) = @_; - $value ? selectPackage($packages, $pkg) : unselectPackage($packages, $pkg); -} sub unselectAllPackages($) { my ($packages) = @_; |