summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 08:12:30 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 08:12:30 +0000
commitb4a7f6ec4fe6a0cc3797f531b46fd1a82cfb5399 (patch)
tree177d0cf56e32dcf8e809c1c1e4e8f9747bdfcd06
parent450a69e2f6342406abfde352e25b7abb2c07237d (diff)
downloaddrakx-b4a7f6ec4fe6a0cc3797f531b46fd1a82cfb5399.tar
drakx-b4a7f6ec4fe6a0cc3797f531b46fd1a82cfb5399.tar.gz
drakx-b4a7f6ec4fe6a0cc3797f531b46fd1a82cfb5399.tar.bz2
drakx-b4a7f6ec4fe6a0cc3797f531b46fd1a82cfb5399.tar.xz
drakx-b4a7f6ec4fe6a0cc3797f531b46fd1a82cfb5399.zip
remove unused code
-rw-r--r--perl-install/pkgs.pm10
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) = @_;