Integrate perlio:

[p5sagit/p5-mst-13.2.git] / t / lib / dprof.t

diff --git a/t/lib/dprof.t b/t/lib/dprof.t
index 6fa24b9..be711f1 100755 (executable)
--- 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;
 }