summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-03-26 15:48:15 +0000
committerFrancois Pons <fpons@mandriva.com>2003-03-26 15:48:15 +0000
commit3552a6f26d0df98eec05e378e520fe2a39d86b57 (patch)
treedbebc35d538aac861b8e5649b5478aaaf7d8420f /perl-install/standalone.pm
parentb0099e000774015ada2754b5cac2c6aba09929b9 (diff)
downloaddrakx-backup-do-not-use-3552a6f26d0df98eec05e378e520fe2a39d86b57.tar
drakx-backup-do-not-use-3552a6f26d0df98eec05e378e520fe2a39d86b57.tar.gz
drakx-backup-do-not-use-3552a6f26d0df98eec05e378e520fe2a39d86b57.tar.bz2
drakx-backup-do-not-use-3552a6f26d0df98eec05e378e520fe2a39d86b57.tar.xz
drakx-backup-do-not-use-3552a6f26d0df98eec05e378e520fe2a39d86b57.zip
simplified code to allow parsing rpmdb instead of just urpmi db.
Diffstat (limited to 'perl-install/standalone.pm')
-rw-r--r--perl-install/standalone.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 4f039745c..319fc92f3 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -214,18 +214,18 @@ sub check_kernel_module_packages {
}
foreach (`rpm --qf '\%{NAME}\n' -qa`) {
chomp;
- $_ eq $ext_name and $list{$_} = 1;
- /$base_name/ and $list{$_} = 1;
+ $_ eq $ext_name and $list{$_} = 0;
+ /$base_name/ and $list{$_} = 0;
}
};
- if (!$ext_name || $list{$ext_name}) {
+ if (!$ext_name || exists $list{$ext_name}) {
eval {
my ($version_release, $ext);
if (c::kernel_version() =~ /([^-]*)-([^-]*mdk)(\S*)/) {
$version_release = "$1.$2";
$ext = $3 ? "-$3" : "";
- $list{"$base_name$ext-$version_release"} or die "no $base_name for current kernel";
- $select{"$base_name$ext-$version_release"} = 1;
+ exists $list{"$base_name$ext-$version_release"} or die "no $base_name for current kernel";
+ $list{"$base_name$ext-$version_release"} and $select{"$base_name$ext-$version_release"} = 1;
} else {
#- kernel version is not recognized, what to do ?
}