From 4282f9970a5cbb64d97c1f020d784efe162b6511 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 14 Nov 2002 14:43:47 +0000 Subject: perl_checker fixes --- drakxconf | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'drakxconf') 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; -- cgit v1.2.1