database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-30 16:24:05 +03:00
Code Activity

Add C version of safe_process

Browse Source 
BitKeeper/etc/ignore:
  Added mysql-test/lib/My/SafeProcess/my_safe_process to the ignore list
configure.in:
  Add Makefile to build safe_process
mysql-test/Makefile.am:
  Build lib/My/SafeProcess
mysql-test/lib/My/SafeProcess.pm:
  Use C version of safe_process
mysql-test/lib/t/SafeProcessStress.pl:
  Decrease number of loops
mysql-test/lib/My/SafeProcess/Makefile.am:
  New BitKeeper file ``mysql-test/lib/My/SafeProcess/Makefile.am''
mysql-test/lib/My/SafeProcess/safe_process.cc:
  New BitKeeper file ``mysql-test/lib/My/SafeProcess/safe_process.cc''
This commit is contained in:
unknown
2008-01-18 00:03:38 +01:00
parent bd172e5044
commit 02a784efea
7 changed files with 317 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
mysql-test/lib/My/SafeProcess.pm
View File

@ -90,22 +90,35 @@ my @safe_process_cmd;
my $safe_kill;
if (IS_WIN32PERL or IS_CYGWIN){
# Use my_safe_process.exe
my $exe= my_find_bin(".", "lib/My/SafeProcess", "my_safe_process.exe");
die "Could not find my_safe_process.exe" unless $exe;
my $exe= my_find_bin(".", ["lib/My/SafeProcess", "My/SafeProcess"],
"my_safe_process");
die "Could not find my_safe_process" unless $exe;
push(@safe_process_cmd, $exe);
# Use my_safe_kill.exe
my $safe_kill= my_find_bin(".", "lib/My/SafeProcess", "my_safe_kill");
die "Could not find my_safe_kill.exe" unless $safe_kill;
die "Could not find my_safe_kill" unless $safe_kill;
}
else {
# Use safe_process.pl
my $script= "lib/My/SafeProcess/safe_process.pl";
$script= "../$script" unless -f $script;
die "Could not find safe_process.pl" unless -f $script;
else
{
my $use_safe_process_binary= 1;
if ($use_safe_process_binary) {
# Use my_safe_process
my $exe= my_find_bin(".", ["lib/My/SafeProcess", "My/SafeProcess"],
"my_safe_process");
die "Could not find my_safe_process" unless $exe;
push(@safe_process_cmd, $exe);
}
else
{
# Use safe_process.pl
my $script= "lib/My/SafeProcess/safe_process.pl";
$script= "../$script" unless -f $script;
die "Could not find safe_process.pl" unless -f $script;
# Call $script with Perl interpreter
push(@safe_process_cmd, $^X, $script);
# Call $script with Perl interpreter
push(@safe_process_cmd, $^X, $script);
}
}