From 3f6115120e8d6c908d2ed5d9280ed3fc43c8c00a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Feb 2003 23:12:19 +0000
Subject: don't "use diskdrake::interactive", only require it when needed

---
 perl-install/standalone/diskdrake | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/standalone/diskdrake')

diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 285557781..4d359cb09 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -27,7 +27,6 @@ use lib qw(/usr/lib/libDrakX);
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
 
 use common;
-use diskdrake::interactive;
 use interactive;
 use detect_devices;
 use fsedit;
@@ -35,7 +34,6 @@ use fs;
 use log;
 use c;
 
-
 my %options;
 my @l = @ARGV;
 while (my $e = shift @l) {
@@ -83,6 +81,7 @@ fs::merge_info_from_mtab([ fsedit::get_really_all_fstab($all_hds) ]);
 $all_hds->{current_fstab} = fs::fstab_to_string($all_hds);
 
 if ($type eq 'hd') {
+    require diskdrake::interactive;
     diskdrake::interactive::main($in, $all_hds);
 } elsif ($type eq 'removable') {
     require diskdrake::removable;
-- 
cgit v1.2.1