Portability tweak on #7377.
Charles Lane [Fri, 20 Oct 2000 13:13:41 +0000 (09:13 -0400)]
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

t/lib/dprof.t

index 6fa24b9..be711f1 100755 (executable)
@@ -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;
 }