From: Martin Quinson <martin.quinson@loria.fr>
Date: Tue, 29 Sep 2015 13:16:29 +0000 (+0200)
Subject: [tesh] simplifies the option processing
X-Git-Tag: v3_12~106
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/5c582bb6b6363d08dc53578c71054c2fdecc50df

[tesh] simplifies the option processing

- Kill unused and ignored options
- Kill temporary variables when possible and actually speak Perl instead
---

diff --git a/tools/tesh/tesh.pl b/tools/tesh/tesh.pl
index 3c7c380be1..f800f23970 100755
--- a/tools/tesh/tesh.pl
+++ b/tools/tesh/tesh.pl
@@ -137,20 +137,13 @@ if ( $ARGV[0] eq "--internal-killer-process" ) {
 
 sub get_options {
 
-    # temporary arrays for GetOption
-    my @cfg;
-    my $log;    # ignored
-
     my %opt = (
-        "help"  => 0,
         "debug" => 0,
     );
 
     Getopt::Long::config( 'bundling', 'no_getopt_compat', 'no_auto_abbrev' );
 
     GetOptions(
-        'help|h' => \$opt{'help'},
-
         'debug|d' => \$opt{"debug"},
 
         'difftool=s' => \$diff_tool,
@@ -158,8 +151,7 @@ sub get_options {
         'cd=s'             => sub { cd_cmd($_[1]) },
         'timeout=s'        => \$opt{'timeout'},
         'setenv=s'         => sub { setenv_cmd($_[1]) },
-        'cfg=s'            => \@cfg,
-        'log=s'            => \$log,
+        'cfg=s'            => sub { $opt{'cfg'} .= " --cfg=$_[1]" },
         'enable-coverage+' => \$enable_coverage,
     );
 
@@ -184,9 +176,6 @@ sub get_options {
         print "Test suite from stdin\n";
     }
 
-    foreach (@cfg) {
-        $opt{'cfg'} .= " --cfg=$_";
-    }
     return %opt;
 }