diff options
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index d86ef2c19..805647215 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -399,8 +399,10 @@ sub insmod { require 'run_program.pm'; - unless (m|/|) { - m/(.*)\.o/ and die "either give ./$_ or $1\n"; + #- try to install the module if it exist else extract it from archive. + #- needed for cardmgr. + unless (-r $f) { + $_ = $1 if m@.*/([^/]*)\.o@; unless (-r ($f = "/lib/modules/$_.o")) { $f = "/tmp/$_.o"; run_program::run("cd /tmp ; bzip2 -cd /lib/modules.cpio.bz2 | cpio -i $_.o"); |