diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-03-26 15:48:15 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-03-26 15:48:15 +0000 |
| commit | 3552a6f26d0df98eec05e378e520fe2a39d86b57 (patch) | |
| tree | dbebc35d538aac861b8e5649b5478aaaf7d8420f /perl-install/standalone.pm | |
| parent | b0099e000774015ada2754b5cac2c6aba09929b9 (diff) | |
| download | drakx-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.pm | 10 |
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 ? } |