From aa25e85ac680f418c5aacf1a09c8e4b71ecf43f0 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 12 Sep 2002 12:52:35 +0000 Subject: fixed very stupid typo and inconsistency in allowNVIDIA_rpms. --- perl-install/install_any.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 621095859..c64358e3b 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -194,9 +194,8 @@ sub allowNVIDIA_rpms { if (pkgs::packageByName($packages, "NVIDIA_GLX")) { #- at this point, we can allow using NVIDIA 3D acceleration packages. my @rpms; - foreach (@{$packages->{depslist}}) { - my ($ext, $version, $release) = /kernel[^-]*(-smp|-enterprise|-secure)?(?:-(\d.*?)\.(\d+mdk))?$/ or next; - my $p = pkgs::packageByName($packages, $_); + foreach my $p (@{$packages->{depslist}}) { + my ($ext, $version, $release) = $p->name =~ /kernel[^-]*(-smp|-enterprise|-secure)?(?:-(\d.*?)\.(\d+mdk))?$/ or next; $p->flag_available or next; $version or ($version, $release) = ($p->version, $p->release); my $name = "NVIDIA_kernel-$version-$release$ext"; -- cgit v1.2.1