From a4299593feb14ed8317da49980b8c06e59688aa2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 14 Apr 2000 23:59:01 +0000
Subject: no_comment

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

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index e5062bd66..859bd58b3 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -121,7 +121,6 @@ sub setupSCSI {
 #------------------------------------------------------------------------------
 sub doPartitionDisks {
     my ($o, $hds) = @_;
-    return if $::testing;
 
     if ($o->{lnx4win}) {
 	my @l = sort { $a->{device_windobe} cmp $b->{device_windobe} } 
@@ -144,7 +143,9 @@ sub doPartitionDisks {
 
 	push @{$real_part->{loopback}}, $root, $swap;	
     } else {
-	partition_table::write($_) foreach @$hds;
+	unless ($::testing) {
+	    partition_table::write($_) foreach @$hds;
+	}
     }
 }
 sub doPartitionDisksLnx4winDev {}
-- 
cgit v1.2.1