diff options
| author | Thierry Vignaud <tv@mageia.org> | 2013-01-18 21:07:21 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2013-01-18 21:07:21 +0000 |
| commit | ea4e6da1f3b807902836313db198975e1315ffbc (patch) | |
| tree | b78e55cae3a46e29685f6b54600b3eeffb1857cf /perl-install/install/commands.pm | |
| parent | 010378fbfed1709ce24252e62034734499b1beae (diff) | |
| download | drakx-backup-do-not-use-ea4e6da1f3b807902836313db198975e1315ffbc.tar drakx-backup-do-not-use-ea4e6da1f3b807902836313db198975e1315ffbc.tar.gz drakx-backup-do-not-use-ea4e6da1f3b807902836313db198975e1315ffbc.tar.bz2 drakx-backup-do-not-use-ea4e6da1f3b807902836313db198975e1315ffbc.tar.xz drakx-backup-do-not-use-ea4e6da1f3b807902836313db198975e1315ffbc.zip | |
use kmod's lsmod instead of our perl one
(it's free, just a symlink on kmod)
Diffstat (limited to 'perl-install/install/commands.pm')
| -rw-r--r-- | perl-install/install/commands.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install/commands.pm b/perl-install/install/commands.pm index f93a8c8ef..3854876a6 100644 --- a/perl-install/install/commands.pm +++ b/perl-install/install/commands.pm @@ -2,7 +2,7 @@ package install::commands; # $Id: commands.pm 263616 2009-11-19 18:11:25Z blino #-######################################################################## #- This file implement many common shell commands: -#- true, false, cat, which, dirname, basename, rmdir, lsmod, grep, tr, +#- true, false, cat, which, dirname, basename, rmdir, grep, tr, #- mount, mkdir, mknod, ln, rm, chmod, chown, swapon, #- swapoff, ls, cp, ps, dd, head, tail, strings, hexdump, more, #- route, df, kill, lspci, lssbus, dmesg, sort, du, @@ -38,7 +38,6 @@ sub cat { @ARGV = @_; print while <> } sub dirname_ { print dirname(@_), "\n" } sub basename_ { print basename(@_), "\n" } sub rmdir_ { foreach (@_) { rmdir $_ or die "rmdir: cannot remove $_\n" } } -sub lsmod() { print "Module Size Used by\n"; cat("/proc/modules") } sub which { ARG: foreach (@_) { foreach my $c (split /:/, $ENV{PATH}) { -x "$c/$_" and print("$c/$_\n"), next ARG } } } |