diff options
Diffstat (limited to 'perl-install/harddrake/gen_snd_list')
| -rwxr-xr-x | perl-install/harddrake/gen_snd_list | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/perl-install/harddrake/gen_snd_list b/perl-install/harddrake/gen_snd_list new file mode 100755 index 000000000..e791ae431 --- /dev/null +++ b/perl-install/harddrake/gen_snd_list @@ -0,0 +1,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 +#) |