summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-03-07 18:30:22 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-03-07 18:30:22 +0000
commit8f40903b27cdafb7bab649a3c314312376191f95 (patch)
tree80377ee6adb4e2edcb011ceb00c365bd35f8051d /perl-install
parent13ea7c77c9bc5b9c24139bce7120db95caa8865e (diff)
downloaddrakx-backup-do-not-use-8f40903b27cdafb7bab649a3c314312376191f95.tar
drakx-backup-do-not-use-8f40903b27cdafb7bab649a3c314312376191f95.tar.gz
drakx-backup-do-not-use-8f40903b27cdafb7bab649a3c314312376191f95.tar.bz2
drakx-backup-do-not-use-8f40903b27cdafb7bab649a3c314312376191f95.tar.xz
drakx-backup-do-not-use-8f40903b27cdafb7bab649a3c314312376191f95.zip
in replay mode, since $o->{interactiveSteps}
exists, we can't simply ||= @graphical_steps, we need to push to ensure that the @graphical_steps is always honoured
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_auto_install.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index d81675b31..bb30e6b20 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -17,8 +17,7 @@ sub new {
# Handle legacy options
$o->{interactive} ||= 'gtk' if $graphical || !is_empty_array_ref($o->{interactiveSteps});
- $o->{interactiveSteps} ||= [ @graphical_steps ];
- push @{$o->{interactiveSteps}}, qw(installPackages exitInstall);
+ push @{$o->{interactiveSteps}}, qw(installPackages exitInstall), @graphical_steps;
if ($o->{interactive}) {
my $interactiveClass = "install_steps_$o->{interactive}";