From 19c821c38a98fbde25f012b8f4d5431f8f830018 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 8 Jun 2005 06:20:35 +0000
Subject: allow to install ndiswrapper drivers during install

---
 perl-install/network/ndiswrapper.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/network/ndiswrapper.pm')

diff --git a/perl-install/network/ndiswrapper.pm b/perl-install/network/ndiswrapper.pm
index b56256c2a..fa726ffaa 100644
--- a/perl-install/network/ndiswrapper.pm
+++ b/perl-install/network/ndiswrapper.pm
@@ -35,9 +35,10 @@ sub ask_driver {
         $driver =~ s/\.inf$//;
 
         #- first uninstall the driver if present, may solve issues if it is corrupted
-        -d $::prefix . "$ndiswrapper_root/$driver" and system('ndiswrapper', '-e', $driver);
+        require run_program;
+        -d $::prefix . "$ndiswrapper_root/$driver" and run_program::rooted($::prefix, 'ndiswrapper', '-e', $driver);
 
-        unless (system('ndiswrapper', '-i', $inf_file) == 0) {
+        unless (run_program::rooted($::prefix, 'ndiswrapper', '-i', $inf_file)) {
             $in->ask_warn(N("Error"), N("Unable to install the %s ndiswrapper driver!", $driver));
             return undef;
         }
-- 
cgit v1.2.1