From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Fri, 20 Oct 2000 13:13:41 +0000 (-0400)
Subject: Portability tweak on #7377.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1ee8ea942531922f62d42196a4beaeb1f71ab86;p=p5sagit%2Fp5-mst-13.2.git

Portability tweak on #7377.

Subject:  Re: [nick@cow.org.uk: [ID 20001020.004] Not OK: perl v5.7.0 +DEVEL7368 on i386-freebsd-64all 4.1-stable (UNINSTALLED)]
Message-Id: <001020131216.3b141@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@7379
---

diff --git a/t/lib/dprof.t b/t/lib/dprof.t
index 6fa24b9..be711f1 100755
--- a/t/lib/dprof.t
+++ b/t/lib/dprof.t
@@ -64,8 +64,10 @@ sub profile {
 sub verify {
 	my $test = shift;
 
-        system $perl, '"-I../lib"', '"-I./lib/dprof"', $test,
-		$opt_v?'-v':'', '-p', $perl;
+	my $command = $perl.' "-I../lib" "-I./lib/dprof" '.$test;
+	$command .= ' -v' if $opt_v;
+	$command .= ' -p '. $perl;
+	system $command;
 }