summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorJeremy Zawodny <Jeremy@Zawodny.com>2002-03-29 09:55:20 -0800
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-30 16:50:33 +0000
commit19dda98f3cf253c51bb70f7b49299ce7b14e64d5 (patch)
tree6d2608d8dbdbf44130bd034dac40d626ae5efbe3 /utils
parent048c20cb4e4d42ed29da004c81a5121bdfb1d67d (diff)
downloadperl-19dda98f3cf253c51bb70f7b49299ce7b14e64d5.tar.gz
dprofpp - allow command-line args passed to a script...
Message-ID: <20020330015520.GA4897@thinkpad0.zawodny.com> p4raw-id: //depot/perl@15625
Diffstat (limited to 'utils')
-rw-r--r--utils/dprofpp.PL6
1 files changed, 4 insertions, 2 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index 8f6afe46df..1ef0b19c48 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: $!";
}
}