summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 22:20:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 22:20:22 +0000
commit22ad938758373ec4e2f8490d62f2cdc237d50d7c (patch)
tree7848808920e41e4bbdee22867646139e7a907099 /perl-install/bootlook.pm
parentbfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (diff)
downloaddrakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.gz
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.bz2
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.xz
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.zip
- replace ... =~ 'foo' with ... =~ /foo/
- remove unneeded parentheses for things like ... if (...)
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 04c752ee7..45995a69f 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -84,10 +84,10 @@ my $menubar = ugtk::create_factory_menu($window, @menu_items);
my $user_combo = new Gtk::Combo;
$user_combo->set_popdown_strings(@usernames);
-$user_combo->entry->set_text($auto_mode{autologin}) if ($auto_mode{autologin});
+$user_combo->entry->set_text($auto_mode{autologin}) if $auto_mode{autologin};
my $desktop_combo =new Gtk::Combo;
$desktop_combo->set_popdown_strings(get_wm());
-$desktop_combo->entry->set_text($auto_mode{desktop}) if ($auto_mode{desktop});
+$desktop_combo->entry->set_text($auto_mode{desktop}) if $auto_mode{desktop};
my $a_c_button = new Gtk::RadioButton (N("NewStyle Categorizing Monitor"));
my $a_h_button = new Gtk::RadioButton N("NewStyle Monitor"), $a_c_button;
my $a_v_button = new Gtk::RadioButton N("Traditional Monitor"), $a_c_button;
@@ -136,7 +136,7 @@ foreach (keys (%combo)) {
$combo{'thms'}->set_popdown_strings(@thms);
$combo{'lilo'}->set_popdown_strings(@lilo_thms);
-$combo{'boot'}->set_popdown_strings(@boot_thms) if(! $no_bootsplash);
+$combo{'boot'}->set_popdown_strings(@boot_thms) if !$no_bootsplash;
my $lilo_pixbuf;
my $lilo_pic = gtkpng($themes{'def_thmb'});
@@ -377,7 +377,7 @@ sub parse_etc_passwd {
@user_info = getpwent();
($uname, $uid) = @user_info[0,2];
push (@usernames, $uname) if ($uid > 500) and !($uname eq "nobody");
- } while (@user_info);
+ } while @user_info;
}
sub get_wm {
@@ -477,7 +477,7 @@ sub updateAutologin {
$in->do_pkgs->install('autologin') if $x_mode;
set_autologin('',$usern,$deskt);
} else {
- set_autologin('',undef) if ($x_no_button->get_active());
+ set_autologin('',undef) if $x_no_button->get_active();
}
}