#!/usr/bin/perl
# 
# Copyright (C) 2002 MandrakeSoft (tvignaud@mandrakesoft.com)
# Released under the GNU General Public License

use lib qw(/usr/lib/libDrakX);
use common;
use list_modules;
use Data::Dumper;

$Data::Dumper::Terse = 1;          # don't output names where feasible
$Data::Dumper::Purity = 1;         # fill in the holes for eval

# ne '' for missing modules ... if_($i ne '', $i, '<none>')
print "package harddrake::sound_drivers;\n#This is an autogenrated file by gen_snd_list from list_modules.pm\nour\$sound_drivers = ", Dumper({map { my $i=qx((/sbin/modinfo -d $_)|head -1|tr -d \\\"|perl -pi -e 's!\n!!g'); $_ => $i } category2modules("multimedia/sound")}), ";\n1;";
#print qq(
#sub
#)