From ea4e6da1f3b807902836313db198975e1315ffbc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 18 Jan 2013 21:07:21 +0000
Subject: use kmod's lsmod instead of our perl one

(it's free, just a symlink on kmod)
---
 perl-install/install/commands.pm    | 3 +--
 perl-install/install/share/list.xml | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install/install')

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
-- 
cgit v1.2.1