perl_checker fixes

1 files changed, 13 insertions, 13 deletions

diff --git a/drakxconf b/drakxconf
index ad2d8641..9dd47b33 100755
--- a/drakxconf
+++ b/drakxconf
@@ -22,21 +22,21 @@ my @l = map {
     }
     { des => $_->{des}, cmd => $path };
 } (
-   { des => N("Display Configuration"), cmd => 'XFdrake'},
-   { des => N("KeyBoard Configuration"), cmd => 'keyboarddrake'},
-   { des => N("Mouse Configuration"), cmd => 'mousedrake'},
-   { des => N("Internet & Network"), cmd => 'drakconnect'},
-   { des => N("Printer Configuration"), cmd => 'printerdrake'},
-   { des => N("Add new users"), cmd => 'adduserdrake'},
-   { des => N("Service Configuration"), cmd => 'drakxservices'},
-   { des => N("Firewall"), cmd => 'tinyfirewall'},
-   { des => N("Boot Configuration"), cmd => 'drakboot'},
-   { des => N("Auto Install"), cmd => 'drakautoinst'},
-   { des => N("Connection Sharing"), cmd => 'drakgw'},
-   { des => N("Disk Partionning"), cmd => 'diskdrake'}
+   { des => N("Display Configuration"), cmd => 'XFdrake' },
+   { des => N("KeyBoard Configuration"), cmd => 'keyboarddrake' },
+   { des => N("Mouse Configuration"), cmd => 'mousedrake' },
+   { des => N("Internet & Network"), cmd => 'drakconnect' },
+   { des => N("Printer Configuration"), cmd => 'printerdrake' },
+   { des => N("Add new users"), cmd => 'adduserdrake' },
+   { des => N("Service Configuration"), cmd => 'drakxservices' },
+   { des => N("Firewall"), cmd => 'tinyfirewall' },
+   { des => N("Boot Configuration"), cmd => 'drakboot' },
+   { des => N("Auto Install"), cmd => 'drakautoinst' },
+   { des => N("Connection Sharing"), cmd => 'drakgw' },
+   { des => N("Disk Partionning"), cmd => 'diskdrake' }
    );
 
-my $choice = $in->ask_from_listf(N("Control Center"), N("Choose the tool you want to use"), sub { $_[0]{des} }, \@l )
+my $choice = $in->ask_from_listf(N("Control Center"), N("Choose the tool you want to use"), sub { $_[0]{des} }, \@l)
     or $in->exit(1);
 $in->end;