From: Jeremy Zawodny <Jeremy@Zawodny.com>
Date: Fri, 29 Mar 2002 17:55:20 +0000 (-0800)
Subject: dprofpp - allow command-line args passed to a script...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19dda98f3cf253c51bb70f7b49299ce7b14e64d5;p=p5sagit%2Fp5-mst-13.2.git

dprofpp - allow command-line args passed to a script...
Message-ID: <20020330015520.GA4897@thinkpad0.zawodny.com>

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

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index 8f6afe4..1ef0b19 100644
--- a/utils/dprofpp.PL
+++ b/utils/dprofpp.PL
@@ -896,10 +896,12 @@ sub run_profiler {
 	my $script = shift;
 	my $profiler = shift;
 	my $startperl = shift;
+	my @script_parts = split /\s+/, $script;
 
-	system $startperl, "-d:$profiler", $script;
+	system $startperl, "-d:$profiler", @script_parts;
 	if( $? / 256 > 0 ){
-		die "Failed: $startperl -d:$profiler $script: $!";
+		my $cmd = join ' ', @script_parts;
+		die "Failed: $startperl -d:$profiler $cmd: $!";
 	}
 }