diff options
| author | pad <pad@mandriva.com> | 1999-09-14 14:50:50 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-14 14:50:50 +0000 |
| commit | 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 (patch) | |
| tree | 06c3462cb7af3adb37d3a4606dd43d2604b88eec /perl-install/commands.pm | |
| parent | 951e65ef820631665dbeddf6cfb43afce034efb9 (diff) | |
| download | drakx-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.pm | 18 |
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; # + |