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 (file)
--- 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: $!";
        }
 }