From 0e4618f846150e3eed750554f4371469ac1cc609 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 20 Oct 1999 10:58:39 +0000
Subject: *** empty log message ***

---
 perl-install/commands.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/commands.pm')

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");
-- 
cgit v1.2.1