remove unused code

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) = @_;