summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm2
-rw-r--r--perl-install/my_gtk.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index ad4215225..5458df1bd 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -599,7 +599,7 @@ sub setupBootloader {
my ($o, $more) = @_;
my $b = $o->{bootloader};
- if ($::beginner && ($more == 1 || $b->{bootUnsafe}) {
+ if ($::beginner && ($more == 1 || $b->{bootUnsafe})) {
my @l = (__("First sector of drive (MBR)"), __("First sector of boot partition"));
my $boot = $o->{hds}[0]{device};
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index f0f92807b..2269baf5f 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -212,7 +212,7 @@ sub create_box_with_title($@) {
sub createScrolledWindow($) {
my ($W) = @_;
- if (member(ref $W, qw(Gtk::Text)) {
+ if (member(ref $W, qw(Gtk::Text))) {
gtkpack_(new Gtk::HBox(0,0),
1, $W,
0, new Gtk::VScrollbar($W->vadj));