From fe62cdfbd7907aefd400728f387b6963e38a9ee4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 14 Mar 2001 19:23:45 +0000 Subject: fix for perl2fcalls --- perl-install/bootlook.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/bootlook.pm') 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()); -- cgit v1.2.1