From 70445f1b7bc94d9d1f4f095391ab93f1e6de72ee Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Jan 2001 23:33:17 +0000 Subject: (setPackages): use lang::langs instead of using $o->{langs} as a array ref (it is not so anymore) (spawnShell): print the drakx_version --- perl-install/install_any.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 29650cb5b..031272073 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -224,6 +224,8 @@ sub spawnShell { open STDERR, ">&F" or die ''; close F; + print any::drakx_version(), "\n"; + c::setsid(); ioctl(STDIN, c::TIOCSCTTY(), 0) or warn "could not set new controlling tty: $!"; @@ -309,7 +311,7 @@ sub setPackages { $o->{compssUsersChoice}{SYSTEM} = 1; $o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}} } @{$o->{compssUsersSorted}}; - foreach (map { substr($_, 0, 2) } @{$o->{langs}}) { + foreach (map { substr($_, 0, 2) } lang::langs($o->{langs})) { push @{$o->{default_packages}}, pkgs::packageByName($o->{packages}, "locales-$_") || next; $o->{compssUsersChoice}{qq(LOCALES"$_")} = 1; } -- cgit v1.2.1