summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm10
1 files changed, 3 insertions, 7 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 5fc19c3d5..fe6f2033e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -655,7 +655,8 @@ sub g_auto_install {
}
local $o->{partitioning}{auto_allocate} = !$replay;
- local $o->{autoExitInstall} = !$replay;
+ $o->{autoExitInstall} = !$replay;
+ $o->{interactiveSteps} = [ 'doPartitionDisks', 'formatPartitions'] if $replay;
#- deep copy because we're modifying it below
$o->{users} = [ @{$o->{users} || []} ];
@@ -673,12 +674,7 @@ sub g_auto_install {
# You should check the syntax of this file before using it in an auto-install.
# You can do this with 'perl -cw auto_inst.cfg.pl' or by executing this file
# (note the '#!/usr/bin/perl -cw' on the first line).
-",
- Data::Dumper->Dump([$o], ['$o']), if_($replay,
-qq(\npackage install_steps_auto_install;), q(
-$graphical = 1;
-push @graphical_steps, 'doPartitionDisks', 'formatPartitions';
-)), "\0");
+", Data::Dumper->Dump([$o], ['$o']), "\0");
$str =~ s/ {8}/\t/g; #- replace all 8 space char by only one tabulation, this reduces file size so much :-)
$str;
}