diff options
| author | Thierry Vignaud <tv@mageia.org> | 2013-01-18 21:07:18 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2013-01-18 21:07:18 +0000 |
| commit | 010378fbfed1709ce24252e62034734499b1beae (patch) | |
| tree | b07cf45d2ccfa91f9885e096f5fafe16ab77a8e1 /perl-install/install/commands.pm | |
| parent | d566e30f6d2b14957321ea583eb04bf4f3a9d6a4 (diff) | |
| download | drakx-backup-do-not-use-010378fbfed1709ce24252e62034734499b1beae.tar drakx-backup-do-not-use-010378fbfed1709ce24252e62034734499b1beae.tar.gz drakx-backup-do-not-use-010378fbfed1709ce24252e62034734499b1beae.tar.bz2 drakx-backup-do-not-use-010378fbfed1709ce24252e62034734499b1beae.tar.xz drakx-backup-do-not-use-010378fbfed1709ce24252e62034734499b1beae.zip | |
kill perl implementation of modprobe now that we've the real one
Diffstat (limited to 'perl-install/install/commands.pm')
| -rw-r--r-- | perl-install/install/commands.pm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/perl-install/install/commands.pm b/perl-install/install/commands.pm index f89002a27..f93a8c8ef 100644 --- a/perl-install/install/commands.pm +++ b/perl-install/install/commands.pm @@ -5,7 +5,7 @@ package install::commands; # $Id: commands.pm 263616 2009-11-19 18:11:25Z blino #- true, false, cat, which, dirname, basename, rmdir, lsmod, grep, tr, #- mount, mkdir, mknod, ln, rm, chmod, chown, swapon, #- swapoff, ls, cp, ps, dd, head, tail, strings, hexdump, more, -#- modprobe, route, df, kill, lspci, lssbus, dmesg, sort, du, +#- route, df, kill, lspci, lssbus, dmesg, sort, du, #-######################################################################## use diagnostics; @@ -290,15 +290,6 @@ sub more { } } -sub modprobe { - my ($h) = getopts(\@_, qw(h)); - $h || @_ == 0 and die "usage: modprobe <module> [options]\n"; - my $name = shift; - require modules; - list_modules::load_default_moddeps(); - modules::load_with_options([ $name ], { $name => join(' ', @_) }); -} - sub route { @_ == 0 or die "usage: route\nsorry, no modification handled\n"; my ($titles, @l) = cat_("/proc/net/route"); |