- perl_checker cleanups

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]}->() });