diff options
Diffstat (limited to 'utils')
| -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: $!"; } } |