From 30b9588a738e199af33e186ce84b3aaae243b0e0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 23 Oct 2002 11:40:17 +0000
Subject: do a perl_checker pass after pixel one since he only do half the work

---
 perl-install/harddrake/sound.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/harddrake')

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 232b2b086..9d6cad674 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -22,6 +22,7 @@ use interactive;
 use run_program;
 use modules;
 use standalone;
+use list_modules;
 
 my %alsa2oss = 
     (
@@ -171,7 +172,7 @@ sub switch {
                                _("\n\nYour card currently use the %s\"%s\" driver (default driver for your card is \"%s\")", ($driver =~ /^snd-/ ? "ALSA " : "OSS "), $driver, $device->{driver}),
                                [
                                 { label => _("Driver:"), val => \$new_driver, list => $alternative, default => $new_driver, sort =>1, format => sub {
-                                    my %des = modules::category2modules_and_description('multimedia/sound');
+                                    my %des = category2modules_and_description('multimedia/sound');
                                     "$_[0] (". $des{$_[0]} . ')'
                                     }, allow_empty_list => 1 },
                                 {
-- 
cgit v1.2.1