1# Test if MYSQLTEST_VARDIR is a soft link 2# If we run in parallel, we have a suffix "/$child_num", so chop off that. 3 4perl; 5 my $path= $ENV{'MYSQLTEST_VARDIR'}; 6 $path=~ s|/\d+$||; 7 open (ISLINK, ">" . $ENV{'MYSQL_TMP_DIR'} . "/mtr_var_link"); 8 my $mvr= -l $path ? 1 : 0; 9 print ISLINK "let \$mtr_var_link= $mvr;\n"; 10 close ISLINK; 11EOF 12 13--source $MYSQL_TMP_DIR/mtr_var_link 14--remove_file $MYSQL_TMP_DIR/mtr_var_link 15 16if ($mtr_var_link) { 17 --skip Test does not work with var being softlink 18} 19