From 7773a22aa8714be44278c069a64dafe75e0a08f9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 22 Feb 2001 14:23:04 +0000 Subject: call /usr/bin/insmod_ with full path --- perl-install/commands.pm | 2 +- perl-install/modules.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/commands.pm b/perl-install/commands.pm index 0be485ec1..37f672659 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -441,7 +441,7 @@ sub insmod { } } -r $f or die "can't find module $_"; - run_program::run(["insmod_", "insmod"], "-f", $f, @_) or die("insmod $_ failed"); + run_program::run(["/usr/bin/insmod_", "insmod"], "-f", $f, @_) or die("insmod $_ failed"); unlink $f; } diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 642a663e9..0a726e3cc 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -485,7 +485,7 @@ sub load_raw { #run_program::run("packdrake", "-x", $cz, "/tmp", map { "$_->[0].o" } @l); my @failed = grep { my $m = "/tmp/$_->[0].o"; - if (-e $m && run_program::run(["insmod_", "insmod"], '2>', '/dev/tty5', '-f', $m, @{$_->[1]})) { + if (-e $m && run_program::run(["/usr/bin/insmod_", "insmod"], '2>', '/dev/tty5', '-f', $m, @{$_->[1]})) { unlink $m; $conf{$_->[0]}{loaded} = 1; ''; -- cgit v1.2.1