summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm34
1 files changed, 17 insertions, 17 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 45995a69f..8b6cef11a 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -108,7 +108,7 @@ my %themes = ('path' =>'/usr/share/bootsplash/themes/',
);
my ($cur_res) = cat_('/etc/lilo.conf') =~ /vga=(.*)/;
#- verify that current resolution is ok
-if ( member( $cur_res, qw( 785 788 791 794))) {
+if (member( $cur_res, qw( 785 788 791 794))) {
($cur_res) = $bootloader::vga_modes{$cur_res} =~ /^([0-9x]+).*?$/;
} else {
$no_bootsplash = 1; #- we can't select any theme we're not in Framebuffer mode :-/
@@ -129,7 +129,7 @@ foreach (all('.')) {
# $_ eq $themes{'defaut'} and $default = $themes{'defaut'};
}
my %combo = ('thms' => '','lilo' => '','boot' => '');
-foreach (keys (%combo)) {
+foreach (keys(%combo)) {
$combo{$_} = new Gtk::Combo;
$combo{$_}->set_value_in_list(1, 0);
}
@@ -200,7 +200,7 @@ sub {
$in->ask_warn(N("Error"), N("Lilo message not found"));
}
#bootsplash install
- if ( -f $themes{'path'} . $combo{'boot'}->entry->get_text() . $themes{'boot'}{'path'} . "bootsplash-$cur_res.jpg") {
+ if (-f $themes{'path'} . $combo{'boot'}->entry->get_text() . $themes{'boot'}{'path'} . "bootsplash-$cur_res.jpg") {
$bootsplash_cont = "# -*- Mode: shell-script -*-
# Specify here if you want add the splash logo to initrd when
# generating an initrd. You can specify :
@@ -237,8 +237,8 @@ LOGO_CONSOLE=" . ($keep_logo ? 'yes' : 'no') . "\n";
}
#here is mkinitrd time
if (!$error) {
- foreach (map { if_(m|^initrd-(.*)\.img|, $1) } all('/boot')){
- if ( system("mkinitrd -f /boot/initrd-$_.img $_")) {
+ foreach (map { if_(m|^initrd-(.*)\.img|, $1) } all('/boot')) {
+ if (system("mkinitrd -f /boot/initrd-$_.img $_")) {
$in->ask_warn(N("Error"),
N("Can't launch mkinitrd -f /boot/initrd-%s.img %s.", $_,$_));
$error = 1;
@@ -260,8 +260,8 @@ Launch \"lilo\" as root in command line to complete LiLo theme installation."));
});
gtkadd($window,
- gtkpack__ (my $global_vbox = new Gtk::VBox(0,0),
- gtkadd (new Gtk::Frame ("$disp_mode"),
+ gtkpack__(my $global_vbox = new Gtk::VBox(0,0),
+ gtkadd(new Gtk::Frame ("$disp_mode"),
# gtkpack__(new Gtk::VBox(0,0),
(gtkpack_(gtkset_border_width(new Gtk::HBox(0, 0),5),
1,N("You are currently using %s as your boot manager.
@@ -321,19 +321,19 @@ Click on Configure to launch the setup wizard.", $lilogrub),
# )
# ),
# X
- gtkadd (new Gtk::Frame (N("System mode")),
- gtkpack__ (new Gtk::VBox(0, 5),
+ gtkadd(new Gtk::Frame (N("System mode")),
+ gtkpack__(new Gtk::VBox(0, 5),
gtksignal_connect(gtkset_active(new Gtk::CheckButton (N("Launch the graphical environment when your system starts")), $x_mode), clicked => sub {
$x_box->set_sensitive(!$x_mode);
$x_mode = !$x_mode;
}),
- gtkpack__ (gtkset_sensitive ($x_box, $x_mode),
+ gtkpack__(gtkset_sensitive ($x_box, $x_mode),
gtkset_active($x_no_button = new Gtk::RadioButton (N("No, I don't want autologin")), !$l_mode),
- gtkpack__ (new Gtk::HBox(0, 10),
+ gtkpack__(new Gtk::HBox(0, 10),
gtkset_active($x_yes_button = new Gtk::RadioButton((N("Yes, I want autologin with this (user, desktop)")), $x_no_button), $l_mode),
- gtkpack__ (new Gtk::VBox(0, 10),
- $user_combo,
- $desktop_combo
+ gtkpack__(new Gtk::VBox(0, 10),
+ $user_combo,
+ $desktop_combo
)
)
)
@@ -404,7 +404,7 @@ sub isXlaunched {
}
close INITTAB;
$line =~ s/id:([1-6]):initdefault:/$1/;
- return ($line-3);
+ return $line-3;
}
sub updateInit {
@@ -454,10 +454,10 @@ sub isAutologin {
}
close AUTOLOGIN;
$line =~ s/AUTOLOGIN=(yes|no)/$1/;
- chomp ($line);
+ chomp($line);
$line = ($line eq "yes");
my %au = get_autologin('');
- return ($line && defined $au{autologin});
+ return $line && defined $au{autologin};
}
sub get_autologin {