coar 2004/02/28 05:00:39
Modified: perl-framework/Apache-Test/lib/Apache TestHarness.pm
Log:
make library name usage safe for space-including paths.
Reviewed by: stas
Revision Changes Path
1.17 +1 -1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestHarness.pm
Index: TestHarness.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestHarness.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -u -r1.16 -r1.17
--- TestHarness.pm 27 Feb 2004 11:17:40 -0000 1.16
+++ TestHarness.pm 28 Feb 2004 13:00:39 -0000 1.17
@@ -50,7 +50,7 @@
my($self, $file) = @_;
my $ran = 0;
my $lib = catfile Apache::Test::vars('top_dir'), qw(Apache-Test lib);
- my $cmd = "$^X -Mlib=$lib $file";
+ my $cmd = qq[$^X -Mlib="$lib" $file];
my $h = Symbol::gensym();
open $h, "$cmd|" or die "open $cmd: $!";