- Kill unused and ignored options
- Kill temporary variables when possible and actually speak Perl instead
- # temporary arrays for GetOption
- my @cfg;
- my $log; # ignored
-
"debug" => 0,
);
Getopt::Long::config( 'bundling', 'no_getopt_compat', 'no_auto_abbrev' );
GetOptions(
"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,
'debug|d' => \$opt{"debug"},
'difftool=s' => \$diff_tool,
'cd=s' => sub { cd_cmd($_[1]) },
'timeout=s' => \$opt{'timeout'},
'setenv=s' => sub { setenv_cmd($_[1]) },
'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,
);
'enable-coverage+' => \$enable_coverage,
);
print "Test suite from stdin\n";
}
print "Test suite from stdin\n";
}
- foreach (@cfg) {
- $opt{'cfg'} .= " --cfg=$_";
- }