Branko ÄŒibej <brane@xbc.nu> writes:
> Instead, let's start serious stress (and performance) tests of BDB
> 4.1.x. I can try to do the Windows bit, if somebody can explain how to
> change stress.pl to not use fork.
Does Perl on Windows have IPC::Open3? If so, then how about
Index: tools/dev/stress.pl
===================================================================
--- tools/dev/stress.pl (revision 5978)
+++ tools/dev/stress.pl (working copy)
@@ -76,6 +76,7 @@
# can be quite hypnotic!
+use IPC::Open3;
use Getopt::Std;
use File::Find;
use File::Path;
@@ -144,18 +145,11 @@
# while other errors are not. Thus there is a need to check the
# return value and parse the error text.
- pipe COMMIT_ERR_READ, COMMIT_ERR_WRITE or die "pipe: $!\n";
- my $pid = fork();
- die "fork failed: $!\n" if not defined $pid;
- if ( not $pid )
- {
- # This is the child process
- open( STDERR, ">&COMMIT_ERR_WRITE" ) or die "redirect failed: $!\n";
- exec $svn_cmd or die "exec $svn_cmd failed: $!\n";
- }
+ my $pid = open3( \*COMMIT_WRITE, \*COMMIT_READ, \*COMMIT_ERR_READ,
+ $svn_cmd);
# This is the main parent process, look for acceptable errors
- close COMMIT_ERR_WRITE or die "close COMMIT_ERR_WRITE: $!\n";
+ close COMMIT_WRITE or die "close COMMIT_WRITE: $!\n";
my $acceptable_error = 0;
while ( <COMMIT_ERR_READ> )
{
--
Philip Martin
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Mon May 19 21:59:17 2003