diff options
author | Mystery Man <unknown@mandriva.org> | 2002-09-03 22:11:26 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-09-03 22:11:26 +0000 |
commit | 27a26c82a667e1091f468e77f7a688341e3fccae (patch) | |
tree | c8c525b36c9c25cd49d2169f65abfc479cad54f5 /tools/patch_pcmcia_config.pl | |
parent | ea2afedb2e1bb848dcc27a605a14e3e3ddebbf48 (diff) | |
download | drakx-27a26c82a667e1091f468e77f7a688341e3fccae.tar drakx-27a26c82a667e1091f468e77f7a688341e3fccae.tar.gz drakx-27a26c82a667e1091f468e77f7a688341e3fccae.tar.bz2 drakx-27a26c82a667e1091f468e77f7a688341e3fccae.tar.xz drakx-27a26c82a667e1091f468e77f7a688341e3fccae.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_9_31mdk'.V1_1_9_31mdk
Diffstat (limited to 'tools/patch_pcmcia_config.pl')
-rwxr-xr-x | tools/patch_pcmcia_config.pl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/tools/patch_pcmcia_config.pl b/tools/patch_pcmcia_config.pl deleted file mode 100755 index 109cfcba7..000000000 --- a/tools/patch_pcmcia_config.pl +++ /dev/null @@ -1,28 +0,0 @@ -#!/usr/bin/perl - -use MDK::Common; - -listlength(@ARGV) == 2 or die "usage: $0 /path/to/etc/pcmcia/config /path/to/modules.dep\n"; - -my ($pcmcia_config, $modules_dep) = @ARGV; - - -my @ignore_modules_in_deps = qw(pcmcia_core ds); - -my @conf_contents = cat_($pcmcia_config); -die "uhm, problem, <$pcmcia_config> seems short in lines\n" if listlength(@conf_contents) < 10; - -foreach (cat_($modules_dep)) { - /^(\S+): (.*)/ and $deps{$1} = [ split ' ', $2 ] or die "could not understand `$_' in <$modules_dep>\n"; -} - -foreach my $confline (@conf_contents) { - $confline =~ /class.*\s+module\s+(.*)/ or next; - my @modules = map { /"([^"]+)"(.*)/ && [ $1, $2 ] } split ',', $1; - $_->[0] =~ s|.*/([^/]+)$|$1|g foreach @modules; #- remove directories since we don't support that during install - my @deps = grep { !member($_, @ignore_modules_in_deps, map { $_->[0] } @modules) } map { @{$deps{$_->[0]}} } @modules; - my $new_modz = join ', ', (map { "\"$_\"" } @deps), (map { "\"$_->[0]\"$_->[1]" } @modules); - $confline =~ s/(class.*\s+module\s+).*/$1$new_modz/; -} - -output($pcmcia_config, @conf_contents); |