Commit e1351afc authored by kent@mysql.com's avatar kent@mysql.com

mysql-test-run.pl, mtr_misc.pl:

  Bug#12615: Host name might not resolve, use short host name
parent 1664e31f
...@@ -7,6 +7,7 @@ ...@@ -7,6 +7,7 @@
use strict; use strict;
sub mtr_full_hostname (); sub mtr_full_hostname ();
sub mtr_short_hostname ();
sub mtr_init_args ($); sub mtr_init_args ($);
sub mtr_add_arg ($$); sub mtr_add_arg ($$);
sub mtr_path_exists(@); sub mtr_path_exists(@);
...@@ -21,6 +22,7 @@ sub mtr_exe_exists(@); ...@@ -21,6 +22,7 @@ sub mtr_exe_exists(@);
# We want the fully qualified host name and hostname() may have returned # We want the fully qualified host name and hostname() may have returned
# only the short name. So we use the resolver to find out. # only the short name. So we use the resolver to find out.
# Note that this might fail on some platforms
sub mtr_full_hostname () { sub mtr_full_hostname () {
...@@ -35,6 +37,13 @@ sub mtr_full_hostname () { ...@@ -35,6 +37,13 @@ sub mtr_full_hostname () {
return $hostname; return $hostname;
} }
sub mtr_short_hostname () {
my $hostname= hostname();
$hostname =~ s/\..+$//;
return $hostname;
}
# FIXME move to own lib # FIXME move to own lib
sub mtr_init_args ($) { sub mtr_init_args ($) {
......
...@@ -414,7 +414,7 @@ sub initial_setup () { ...@@ -414,7 +414,7 @@ sub initial_setup () {
$opt_source_dist= 1; $opt_source_dist= 1;
} }
$glob_hostname= mtr_full_hostname(); $glob_hostname= mtr_short_hostname();
# 'basedir' is always parent of "mysql-test" directory # 'basedir' is always parent of "mysql-test" directory
$glob_mysql_test_dir= cwd(); $glob_mysql_test_dir= cwd();
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment