summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-14 17:36:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-14 17:36:32 +0000
commit78e8097c578fb334c7440a5459fdb7aecc827feb (patch)
tree365a303dd0143c940451e55df0316b3aaf6c0a67 /perl-install/interactive
parent0321ff25b57d94626c9a5c2d02fbdb5448474fc6 (diff)
downloaddrakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.tar
drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.tar.gz
drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.tar.bz2
drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.tar.xz
drakx-backup-do-not-use-78e8097c578fb334c7440a5459fdb7aecc827feb.zip
- add/remove spaces to make perl_checker happy
- remove redundant parentheses - add some parentheses for clarity
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm2
-rw-r--r--perl-install/interactive/newt.pm2
-rw-r--r--perl-install/interactive/stdio.pm4
3 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 53d7d72c2..b4c09afe6 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -115,7 +115,7 @@ sub create_clist {
$l[($j + $curr) % @l] =~ /$start_reg$word/i and last;
}
$j == @l ?
- $starting_word = '' :
+ ($starting_word = '') :
$select->(($j + $curr) % @l);
$timeout = Gtk->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 });
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index b15b92a57..2f5f18791 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -144,7 +144,7 @@ sub ask_fromW_real {
} @{$e->{list}};
};
} else {
- $w = Newt::Component::Entry(-1, -1, '', 20, ($e->{hidden} && 1 << 11) | 1 << 2);
+ $w = Newt::Component::Entry(-1, -1, '', 20, ($e->{hidden} && 1 << 11) | (1 << 2));
$get = sub { $w->EntryGetValue };
$set = sub { $w->EntrySet($_[0], 1) };
}
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index 1952cc0e5..0fa6bf3d7 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -74,7 +74,7 @@ ask_fromW_begin:
${$e->{val}} = $i;
}
} elsif ($e->{type} =~ /list/) {
- ($e->{text} || $e->{label}) and print "=> $e->{label} $e->{text}\n";
+ $e->{text} || $e->{label} and print "=> $e->{label} $e->{text}\n";
my $n = 0; my $size = 0; my $def_n = 0;
foreach (@{$e->{list}}) {
$n++;
@@ -95,7 +95,7 @@ ask_fromW_begin:
print N("Button `%s': %s", $e->{label}, may_apply($e->{format}, ${$e->{val}})), " $e->{text}\n";
print N("Do you want to click on this button?");
my $i = readln();
- ($i && $i !~ /^n/i) and $e->{clicked_may_quit}(), $common->{callbacks}{changed}->($ind);
+ $i && $i !~ /^n/i and $e->{clicked_may_quit}(), $common->{callbacks}{changed}->($ind);
} elsif ($e->{type} eq 'label') {
my $t = $format_label->($e);
push @labels, $t;