From 3552a6f26d0df98eec05e378e520fe2a39d86b57 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 26 Mar 2003 15:48:15 +0000 Subject: simplified code to allow parsing rpmdb instead of just urpmi db. --- perl-install/standalone.pm | 10 +++++----- 1 file 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 ? } -- cgit v1.2.1