From 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Tue, 14 Sep 1999 14:50:50 +0000
Subject: *** empty log message ***

---
 perl-install/commands.pm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'perl-install/commands.pm')

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 3909d4398..87862c19b 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -4,12 +4,20 @@ use diagnostics;
 use strict;
 use vars qw($printable_chars);
 
+#-######################################################################################
+#- misc imports
+#-######################################################################################
 use common qw(:common :file :system :constant);
 
+#-#####################################################################################
+#- Globals
+#-#####################################################################################
 my $BUFFER_SIZE = 1024;
 
-1;
 
+#-######################################################################################
+#- Functions
+#-######################################################################################
 sub getopts {
     my $o = shift;
     my @r = map { '' } (@_ = split //, $_[0]);
@@ -384,7 +392,7 @@ sub insmod {
     require 'run_program.pm';
     run_program::run("cd /tmp ; bzip2 -cd /lib/modules.cpio.bz2 | cpio -i $name.o");
     -r $f or die "can't find module $name";
-    run_program::run("insmod_", $f, @_) or die("insmod $name failed");
+    run_program::run(["insmod_", "insmod"], $f, @_) or die("insmod $name failed");
     unlink $f;
 }
 
@@ -444,3 +452,9 @@ $dev, $size, $used, $free, $use, $mntpoint
 	write DF if $size;
     }
 }
+
+#-######################################################################################
+#- Wonderful perl :(
+#-######################################################################################
+1; # 
+
-- 
cgit v1.2.1