mirror of
https://github.com/MariaDB/server.git
synced 2025-01-20 14:02:32 +01:00
5ec1549776
Try kill all children to the mysql-test-run process when exiting mtr_process.pl: Added new function mtr_exit() that try kill all children to the mysql-test-run process when exiting mysql-test-run.pl: Try kill all children to the mysql-test-run process when exiting New --vardir caused problems on Windows Changed faulty calls to error() to mtr_error()
50 lines
1.1 KiB
Perl
50 lines
1.1 KiB
Perl
# -*- cperl -*-
|
|
|
|
# This is a library file used by the Perl version of mysql-test-run,
|
|
# and is part of the translation of the Bourne shell script with the
|
|
# same name.
|
|
|
|
use strict;
|
|
|
|
sub mtr_full_hostname ();
|
|
sub mtr_init_args ($);
|
|
sub mtr_add_arg ($$);
|
|
|
|
##############################################################################
|
|
#
|
|
# Misc
|
|
#
|
|
##############################################################################
|
|
|
|
# We want the fully qualified host name and hostname() may have returned
|
|
# only the short name. So we use the resolver to find out.
|
|
|
|
sub mtr_full_hostname () {
|
|
|
|
my $hostname= hostname();
|
|
if ( $hostname !~ /\./ )
|
|
{
|
|
my $address= gethostbyname($hostname)
|
|
or mtr_error("Couldn't resolve $hostname : $!");
|
|
my $fullname= gethostbyaddr($address, AF_INET);
|
|
$hostname= $fullname if $fullname;
|
|
}
|
|
return $hostname;
|
|
}
|
|
|
|
# FIXME move to own lib
|
|
|
|
sub mtr_init_args ($) {
|
|
my $args = shift;
|
|
$$args = []; # Empty list
|
|
}
|
|
|
|
sub mtr_add_arg ($$) {
|
|
my $args= shift;
|
|
my $format= shift;
|
|
my @fargs = @_;
|
|
|
|
push(@$args, sprintf($format, @fargs));
|
|
}
|
|
|
|
1;
|