summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-14 19:23:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-14 19:23:45 +0000
commitfe62cdfbd7907aefd400728f387b6963e38a9ee4 (patch)
tree797d843a7c09ad5b32844fa6584b6a4bbce74681 /perl-install/bootlook.pm
parent2060ec3fde6da3ce94fa130a6365b6af04cd4815 (diff)
downloaddrakx-fe62cdfbd7907aefd400728f387b6963e38a9ee4.tar
drakx-fe62cdfbd7907aefd400728f387b6963e38a9ee4.tar.gz
drakx-fe62cdfbd7907aefd400728f387b6963e38a9ee4.tar.bz2
drakx-fe62cdfbd7907aefd400728f387b6963e38a9ee4.tar.xz
drakx-fe62cdfbd7907aefd400728f387b6963e38a9ee4.zip
fix for perl2fcalls
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 1956eadcb..3705de154 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -47,7 +47,7 @@ if ($::isEmbedded) {
# $path_to_pixmaps = "./pixmaps/";
}
-my $in = vnew interactive('su');
+my $in = interactive->vnew('su');
local $_ = join '', @ARGV;
/-h/ and die _("no help implemented yet.\n");
@@ -349,7 +349,7 @@ sub updateAutologin
{
my ($usern,$deskt)=($user_combo->entry->get_text(), $desktop_combo->entry->get_text());
- if($x_yes_button->get_active() ) {
+ if ($x_yes_button->get_active() ) {
set_autologin('',$usern,$deskt);
} else {
set_autologin('',undef) if ($x_no_button->get_active());