summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-14 14:50:50 +0000
committerpad <pad@mandriva.com>1999-09-14 14:50:50 +0000
commit0aa7a9e98c3b51085c87aa13d61eef8e3f694626 (patch)
tree06c3462cb7af3adb37d3a4606dd43d2604b88eec /perl-install/commands.pm
parent951e65ef820631665dbeddf6cfb43afce034efb9 (diff)
downloaddrakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar
drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.gz
drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.bz2
drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.xz
drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.zip
*** empty log message ***
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm18
1 files changed, 16 insertions, 2 deletions
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; #
+