summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-20 17:30:08 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-20 17:30:08 +0000
commit26abac9506dff9d6c337fd904b4650f366e41de2 (patch)
tree1887e3aeff33677fa62e637f9d1ca48c84fe1bea /perl-install
parent174bf698bce7c02d2e8989cc871c9e7b6beb48a7 (diff)
downloaddrakx-26abac9506dff9d6c337fd904b4650f366e41de2.tar
drakx-26abac9506dff9d6c337fd904b4650f366e41de2.tar.gz
drakx-26abac9506dff9d6c337fd904b4650f366e41de2.tar.bz2
drakx-26abac9506dff9d6c337fd904b4650f366e41de2.tar.xz
drakx-26abac9506dff9d6c337fd904b4650f366e41de2.zip
no_comment
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));