summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2013-01-18 21:07:21 +0000
committerThierry Vignaud <tv@mageia.org>2013-01-18 21:07:21 +0000
commitf8c18be294bc9de52723f8870e9b5bb6c792e28d (patch)
treeb78e55cae3a46e29685f6b54600b3eeffb1857cf /perl-install
parentd4530df940aeb1b301456510f1befdc4076f8c33 (diff)
downloaddrakx-f8c18be294bc9de52723f8870e9b5bb6c792e28d.tar
drakx-f8c18be294bc9de52723f8870e9b5bb6c792e28d.tar.gz
drakx-f8c18be294bc9de52723f8870e9b5bb6c792e28d.tar.bz2
drakx-f8c18be294bc9de52723f8870e9b5bb6c792e28d.tar.xz
drakx-f8c18be294bc9de52723f8870e9b5bb6c792e28d.zip
use kmod's lsmod instead of our perl one
(it's free, just a symlink on kmod)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/commands.pm3
-rw-r--r--perl-install/install/share/list.xml2
2 files changed, 2 insertions, 3 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 } }
}
diff --git a/perl-install/install/share/list.xml b/perl-install/install/share/list.xml
index 1585de711..5c1faf132 100644
--- a/perl-install/install/share/list.xml
+++ b/perl-install/install/share/list.xml
@@ -10,7 +10,7 @@
<if ARCH="ppc">
pdisk
</if>
- insmod modinfo rmmod modprobe
+ insmod modinfo rmmod modprobe lsmod
losetup
lvm2 mdadm mdmon
mount mount.nfs umount