From 59656117c5c71887e70cab14e268a35c8ab548da Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 18 Jul 2002 15:51:23 +0000
Subject: fixes allowNVIDIA_rpms against perl-URPM.

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e7b91bf2c..401de60ef 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -192,7 +192,7 @@ sub allowNVIDIA_rpms {
     if (pkgs::packageByName($packages, "NVIDIA_GLX")) {
 	#- at this point, we can allow using NVIDIA 3D acceleration packages.
 	my @rpms;
-	foreach (keys %{$packages->{names}}) {
+	foreach (@{$packages->{depslist}}) {
 	    my ($ext, $version, $release) = /kernel[^-]*(-smp|-enterprise|-secure)?(?:-(\d.*?)\.(\d+mdk))?$/ or next;
 	    my $p = pkgs::packageByName($packages, $_);
 	    $p->flag_available or next;
-- 
cgit v1.2.1