don't "use diskdrake::interactive", only require it when needed

1 files changed, 1 insertions, 2 deletions

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;