stas 02/01/16 09:05:20
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
Log:
- preserve "word word1"-like tokens in ARGV when restarting the test suite
for setting ulimit
Revision Changes Path
1.85 +3 -1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -r1.84 -r1.85
--- TestRun.pm 10 Jan 2002 05:34:08 -0000 1.84
+++ TestRun.pm 16 Jan 2002 17:05:20 -0000 1.85
@@ -500,7 +500,9 @@
}
close $sh;
- my $command = "ulimit -c unlimited; $0 @ARGV";
+ # reconstruct argv, preserve multiwords args, eg 'PerlTrace all'
+ my $argv = join " ", map { /^-/ ? $_ : qq['$_'] } @ARGV;
+ my $command = "ulimit -c unlimited; $0 $argv";
warning "setting ulimit to allow core files\n$command";
exec $command;
die "exec $command has failed"; # shouldn't be reached
