#!/usr/bin/perl use diagnostics; use strict; use lib qw(/usr/lib/libDrakX .); use common; use install::commands; $::isInstall = 1; $::prefix = '/mnt'; my $progname = basename($0); eval { # hack as some functions are defined by perl... so chmod -> chmod_ &{$install::commands::{$progname} || $install::commands::{$progname . "_"} || \&err}(@ARGV), exit 0; }; die formatError($@) . "\n"; sub err() { die "$0: unknown program (unimplemented)\n" }
summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--perl-install/standalone/draknfs1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index cfc375e0d..97d61aab4 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -28,6 +28,7 @@ use interactive;
use ugtk2 qw(:ask :wrappers :create :dialogs);
my $in = 'interactive'->vnew('su');
+$in->do_pkgs->ensure_is_installed('nfs-utils', '/usr/sbin/rpc.nfsd') or return;
use constant FALSE => 0;
use constant TRUE => 1;