summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2005-02-14 18:57:35 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2005-02-14 18:57:35 +0000
commitc69221ee293219246822ef8d10748096373392ef (patch)
tree8c8dc62da7e02b232d6140f983b0167a1f0246a5 /perl-install/install_any.pm
parent8ccd2a125d80476f5d90a03e165b860225988207 (diff)
downloaddrakx-backup-do-not-use-c69221ee293219246822ef8d10748096373392ef.tar
drakx-backup-do-not-use-c69221ee293219246822ef8d10748096373392ef.tar.gz
drakx-backup-do-not-use-c69221ee293219246822ef8d10748096373392ef.tar.bz2
drakx-backup-do-not-use-c69221ee293219246822ef8d10748096373392ef.tar.xz
drakx-backup-do-not-use-c69221ee293219246822ef8d10748096373392ef.zip
- Copy complete $printer structure for installation records (all irrelevant
was already removed by printer::printerdrake::final_cleanup($printer), called in install_steps_interactive.pm at the end of the "Summary" step.
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm9
1 files changed, 1 insertions, 8 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f9490306c..17f2f8f08 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1047,14 +1047,7 @@ sub g_auto_install {
exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(locale authentication mouse netc timezone superuser intf keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user libsafe netcnx useSupermount autoExitInstall X services); #- TODO modules bootloader
- if ($::o->{printer}) {
- $o->{printer}{$_} = $::o->{printer}{$_} foreach qw(SPOOLER DEFAULT BROWSEPOLLADDR BROWSEPOLLPORT MANUALCUPSCONFIG);
- $o->{printer}{configured} = {};
- foreach my $queue (keys %{$::o->{printer}{configured}}) {
- my $val = $::o->{printer}{configured}{$queue}{queuedata};
- exists $val->{$_} and $o->{printer}{configured}{$queue}{queuedata}{$_} = $val->{$_} foreach keys %{$val || {}};
- }
- }
+ $o->{printer} = $::o->{printer} if $::o->{printer};
local $o->{partitioning}{auto_allocate} = !$b_replay;
$o->{autoExitInstall} = !$b_replay;