--perlusestrict;useFile::Basename;useIO::File;uselib "lib/";useMy::Find;## Look for ndbinfo.sql, if not found: skip test.### Set up paths#my$vardir=$ENV{MYSQLTEST_VARDIR}ordie"Need MYSQLTEST_VARDIR";my$mysql_test_dir=$ENV{MYSQL_TEST_DIR}ordie"Need MYSQL_TEST_DIR";my$basedir=dirname($mysql_test_dir);## Check if the needed tests are available#my$sql_file=my_find_file($basedir,["storage/ndb/tools","share/mysql/"],"ndbinfo.sql",NOT_REQUIRED);my$F=IO::File->new("$vardir/tmp/have_ndbinfo_result.inc","w")ordie;if($sql_file){print$F"--let \$NDBINFO_SQL= $sql_file\n";}else{print$F"skip Could not find ndbinfo.sql;\n";}$F->close();EOF--source$MYSQLTEST_VARDIR/tmp/have_ndbinfo_result.inc