diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 2 | ||||
| -rw-r--r-- | perl-install/my_gtk.pm | 2 |
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)); |