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