From b4a7f6ec4fe6a0cc3797f531b46fd1a82cfb5399 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 08:12:30 +0000
Subject: remove unused code

---
 perl-install/pkgs.pm | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'perl-install')

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) = @_;
-- 
cgit v1.2.1