1# 2# This macro suspends the current node 3# 4 5--let _SUSPEND_NODE_PIDFILE = `SELECT @@pid_file` 6--echo Suspending node ... 7 8--perl 9 my $pid_filename = $ENV{'_SUSPEND_NODE_PIDFILE'}; 10 my $mysqld_pid = `cat $pid_filename`; 11 chomp($mysqld_pid); 12 system("kill -SIGSTOP $mysqld_pid"); 13 exit(0); 14EOF 15