mirror/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-01-30 02:30:06 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bug#39972 mysql-test-run.pl: Confusing error message under special conditions

Browse source 
- Fix problem with for example ./mtr --timer, caused by new version of "Getopt::Long"
 - Evaluating the "$opt" variable as a string, returns the name of the parameter
   to be modified instead of "Getopt::Long::Callback" which is the class name
This commit is contained in:
Magnus Svensson 2009-01-21 11:17:16 +01:00
parent 37e91accb0
commit 56e6a0ab82
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mysql-test/lib/mtr_cases.pm
View file

@ -45,10 +45,13 @@ our $reorder= 1;
sub collect_option {
my ($opt, $value)= @_;
# Evaluate $opt as string to use "Getopt::Long::Callback legacy API"
my $opt_name = "$opt";
# Convert - to _ in option name
$opt =~ s/-/_/g;
$opt_name =~ s/-/_/g;
no strict 'refs';
${$opt}= $value;
${$opt_name}= $value;
}
use File::Basename;

11
mysql-test/lib/mtr_report.pm
View file

@ -44,12 +44,13 @@ our $timer= 1;
sub report_option {
my ($opt, $value)= @_;
# Convert - to _ in option name
$opt =~ s/-/_/g;
no strict 'refs';
${$opt}= $value;
# Evaluate $opt as string to use "Getopt::Long::Callback legacy API"
my $opt_name = "$opt";
#print $name, " setting $opt to ", (defined $value? $value : "undef") ,"\n";
# Convert - to _ in option name
$opt_name =~ s/-/_/g;
no strict 'refs';
${$opt_name}= $value;
}
sub _name {