diff options
| -rw-r--r-- | perl-install/modules.pm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 52df91fad..9cc3bc39b 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -449,12 +449,19 @@ sub load_raw { extract_modules('/tmp', map { $_->[0] } @l); my @failed = grep { my $m = '/tmp/' . name2file($_->[0]); - if (-e $m && run_program::run(["/usr/bin/insmod_", "insmod"], '2>', '/dev/tty5', $m, @{$_->[1]})) { - unlink $m; - ''; + if (-e $m) { + my $stdout; + my $rc = run_program::run(["/usr/bin/insmod_", "insmod"], '2>', \$stdout, $m, @{$_->[1]}); + log::l(chomp_($stdout)) if $stdout; + if ($rc) { + unlink $m; + ''; + } else { + -e $m; + } } else { log::l("missing module $_->[0]") if !-e $m; - -e $m; + -e $m; } } @l; |