diff options
| author | Jeremy Zawodny <Jeremy@Zawodny.com> | 2002-03-29 09:55:20 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-30 16:50:33 +0000 |
| commit | 19dda98f3cf253c51bb70f7b49299ce7b14e64d5 (patch) | |
| tree | 6d2608d8dbdbf44130bd034dac40d626ae5efbe3 /utils/dprofpp.PL | |
| parent | 048c20cb4e4d42ed29da004c81a5121bdfb1d67d (diff) | |
| download | perl-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/dprofpp.PL')
| -rw-r--r-- | utils/dprofpp.PL | 6 |
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: $!"; } } |