Default page

Your IP: 216.73.216.124
Server IP: 50.28.103.30
Server: Linux host.jcukjv-lwsites.com 4.18.0-553.22.1.el8_10.x86_64 #1 SMP Tue Sep 24 05:16:59 EDT 2024 x86_64
Server Software: nginx/1.28.0
PHP Version: 8.3.12
Buat File | Buat Folder

Dir : ~/www/server/mysql/mysql-test/include/

View File Name : have_expect.inc

###############################################
# checks if the perl expect module 
# is installed on the system where
# the test is run
###############################################

--let $tmp_inc=$MYSQL_TMP_DIR/tmp.inc
let inc_tmp=$tmp_inc;

--perl

my $tmp_inc= $ENV{'inc_tmp'} or die "tmp_inc not set";
my $is_module_present = eval
{
  require Expect;
};

open(FILE_INC, ">" , "$tmp_inc") or die("Unable to open $tmp_inc: $!\n");
print FILE_INC '--let $is_present= '.$is_module_present;
close FILE_INC;

EOF

--source $tmp_inc

if (!$is_present)
{
  --skip Please install the perl Expect module
}

--remove_file $tmp_inc