From 8c744cf3d47bf1295ced161e7ef9776a25efeeb8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Aug 2001 22:41:32 +0000
Subject: fix diskdrake requiring gtk

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

(limited to 'perl-install')

diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 4c113413a..049e9e3fa 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -24,7 +24,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 use common;
-use diskdrake;
+use diskdrake_interactive;
 use standalone;
 use interactive;
 use detect_devices;
@@ -70,7 +70,7 @@ fs::get_raw_hds('', $all_hds);
 fs::merge_info_from_fstab([ fsedit::get_really_all_fstab($all_hds) ]);
 fs::merge_info_from_mtab([ fsedit::get_really_all_fstab($all_hds) ]);
 
-if (getenv("TEST_DEFAULT_OPTIONS")) {
+if ($ENV{TEST_DEFAULT_OPTIONS})) {
     fs::set_default_options($all_hds);
     fs::set_removable_mntpoints($all_hds);
 }
-- 
cgit v1.2.1