summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-09-25 21:39:02 +0000
committerDaouda Lo <daouda@mandriva.com>2004-09-25 21:39:02 +0000
commit4f37308f5535a2f95cfba408d5c6272c334fe8fe (patch)
treef76041017c8ead7bb9e517ad1882a5b9067d10f7
parentad7a75c412ec8efb993bfaea69e81d82b9a14aa8 (diff)
downloadmgaonline-4f37308f5535a2f95cfba408d5c6272c334fe8fe.tar
mgaonline-4f37308f5535a2f95cfba408d5c6272c334fe8fe.tar.gz
mgaonline-4f37308f5535a2f95cfba408d5c6272c334fe8fe.tar.bz2
mgaonline-4f37308f5535a2f95cfba408d5c6272c334fe8fe.tar.xz
mgaonline-4f37308f5535a2f95cfba408d5c6272c334fe8fe.zip
- perl_checker cleanups
-rwxr-xr-xmdkonline2
1 files changed, 1 insertions, 1 deletions
diff --git a/mdkonline b/mdkonline
index 38e6cd63..b1e17b60 100755
--- a/mdkonline
+++ b/mdkonline
@@ -87,7 +87,7 @@ $o->{actions} = {
$p <= 1 and init(0)
}
};
-foreach my $l (['Next', N("Next"), 1], ['SkipWiz', N("Skip Wizard")], ['Prev', N("Previous"), 1 ]) {
+foreach my $l ([ 'Next', N("Next"), 1 ], [ 'SkipWiz', N("Skip Wizard") ], [ 'Prev', N("Previous"), 1 ]) {
$o->{$l->[0]} = Gtk2::Button->new($l->[1]);
$l->[2] ? $o->{bottomHbox}->pack_end($o->{$l->[0]}, 0, 0, 1) : $o->{bottomHbox}->pack_start($o->{$l->[0]}, 0, 0, 1);
$o->{$l->[0]}->signal_connect(clicked => sub { $o->{actions}{$l->[0]}->() });