diff options
author | unknown <kent@mysql.com/c-634072d5.010-2112-6f72651.cust.bredbandsbolaget.se> | 2006-11-24 18:26:53 +0100 |
---|---|---|
committer | unknown <kent@mysql.com/c-634072d5.010-2112-6f72651.cust.bredbandsbolaget.se> | 2006-11-24 18:26:53 +0100 |
commit | f47d5500c3e2b30d1b9c909bb735054ab488c3d6 (patch) | |
tree | 1ca4181ee75718e2ce5d7fd16026465f51234529 | |
parent | 23003bfa4de2b7f541bd44f2ecdca218d25c124a (diff) | |
download | mariadb-git-f47d5500c3e2b30d1b9c909bb735054ab488c3d6.tar.gz |
mysql-test-run.pl:
Removed "use diagnostics", reduces Perl speed significantly. Can be
enabled with "perl -Mdiagnostics mysql-test-run.pl".
mtr_report.pl:
Don't try output "skipped" comment if there is none (bug#24471)
mysql-test/mysql-test-run.pl:
Removed "use diagnostics", reduces Perl speed significantly. Can be
enabled with "perl -Mdiagnostics mysql-test-run.pl".
mysql-test/lib/mtr_report.pl:
Don't try output "skipped" comment if there is none (bug#24471)
-rw-r--r-- | mysql-test/lib/mtr_report.pl | 6 | ||||
-rwxr-xr-x | mysql-test/mysql-test-run.pl | 1 |
2 files changed, 5 insertions, 2 deletions
diff --git a/mysql-test/lib/mtr_report.pl b/mysql-test/lib/mtr_report.pl index 8d7de9d1a4b..d0e836c1a90 100644 --- a/mysql-test/lib/mtr_report.pl +++ b/mysql-test/lib/mtr_report.pl @@ -89,10 +89,14 @@ sub mtr_report_test_skipped ($) { { print "[ disabled ] $tinfo->{'comment'}\n"; } - else + elsif ( $tinfo->{'comment'} ) { print "[ skipped ] $tinfo->{'comment'}\n"; } + else + { + print "[ skipped ]\n"; + } } sub mtr_report_tests_not_skipped_though_disabled ($) { diff --git a/mysql-test/mysql-test-run.pl b/mysql-test/mysql-test-run.pl index 024d5c1c452..91be606a8bc 100755 --- a/mysql-test/mysql-test-run.pl +++ b/mysql-test/mysql-test-run.pl @@ -66,7 +66,6 @@ use IO::Socket::INET; use Data::Dumper; use strict; use warnings; -use diagnostics; select(STDOUT); $| = 1; # Automatically flush STDOUT |