42 lines
1.2 KiB
PHP
42 lines
1.2 KiB
PHP
--perl
|
|
use strict;
|
|
|
|
use File::Basename;
|
|
use IO::File;
|
|
use lib "lib/";
|
|
use My::Find;
|
|
|
|
my $vardir = $ENV{MYSQLTEST_VARDIR} or die "Need MYSQLTEST_VARDIR";
|
|
my $mysql_test_dir = $ENV{MYSQL_TEST_DIR} or die "Need MYSQL_TEST_DIR";
|
|
my $basedir = dirname($mysql_test_dir);
|
|
my $source_dist = 0;
|
|
if( -d "$basedir/sql" )
|
|
{
|
|
$source_dist = 1;
|
|
}
|
|
|
|
# In the RPM case, binaries and libraries are installed in the
|
|
# default system locations, instead of having our own private base
|
|
# directory. And we install "/usr/share/mysql-test". Moving up one
|
|
# more directory relative to "mysql-test" gives us a usable base
|
|
# directory for RPM installs.
|
|
if ( ! $source_dist and ! -d "$basedir/bin" )
|
|
{
|
|
$basedir= dirname($basedir);
|
|
}
|
|
|
|
# Out of source set MTR_BINDIR
|
|
my $bindir = $ENV{MTR_BINDIR} || $basedir;
|
|
my $ndb_error_reporter = my_find_file($bindir, ["bin"],
|
|
"ndb_error_reporter");
|
|
my $F = IO::File->new("$vardir/tmp/ndb_error_reporter_result.inc", "w") or die;
|
|
if ($ndb_error_reporter) {
|
|
print $F "--let \$NDB_ERROR_REPORTER=$ndb_error_reporter\n";
|
|
}
|
|
$F->close();
|
|
|
|
EOF
|
|
|
|
--source $MYSQLTEST_VARDIR/tmp/ndb_error_reporter_result.inc
|
|
--remove_file $MYSQLTEST_VARDIR/tmp/ndb_error_reporter_result.inc
|