blob: e791ae4312791de0f3ab2ba8015a276e46952f58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/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
#)
|
