[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

Re: svn.collab.net is now running Subversion 0.23.

From: Philip Martin <philip_at_codematters.co.uk>
Date: 2003-05-19 21:58:21 CEST

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

This is an archived mail posted to the Subversion Dev mailing list.

This site is subject to the Apache Privacy Policy and the Apache Public Forum Archive Policy.