diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-03-07 18:30:22 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-03-07 18:30:22 +0000 |
| commit | 8f40903b27cdafb7bab649a3c314312376191f95 (patch) | |
| tree | 80377ee6adb4e2edcb011ceb00c365bd35f8051d | |
| parent | 13ea7c77c9bc5b9c24139bce7120db95caa8865e (diff) | |
| download | drakx-8f40903b27cdafb7bab649a3c314312376191f95.tar drakx-8f40903b27cdafb7bab649a3c314312376191f95.tar.gz drakx-8f40903b27cdafb7bab649a3c314312376191f95.tar.bz2 drakx-8f40903b27cdafb7bab649a3c314312376191f95.tar.xz drakx-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
| -rw-r--r-- | perl-install/install_steps_auto_install.pm | 3 |
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}"; |