randyk 2004/01/11 07:25:12
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
Log:
Run t/TEST as $^X t/TEST, for the benefit of Win32.
Revision Changes Path
1.138 +1 -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.137
retrieving revision 1.138
diff -u -r1.137 -r1.138
--- TestRun.pm 11 Jan 2004 15:22:10 -0000 1.137
+++ TestRun.pm 11 Jan 2004 15:25:12 -0000 1.138
@@ -630,7 +630,7 @@
# reconstruct argv, preserve multiwords args, eg 'PerlTrace all'
my $argv = join " ", map { /^-/ ? $_ : qq['$_'] } @ARGV;
- $original_command = "$0 $argv";
+ $original_command = "$^X $0 $argv";
$orig_cwd = Cwd::cwd();
$self->set_ulimit;
$self->set_env; #make sure these are always set
