diff options
Diffstat (limited to 't/lib/dprof/V.pm')
| -rw-r--r-- | t/lib/dprof/V.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/lib/dprof/V.pm b/t/lib/dprof/V.pm index cbdeca4eda..152cddc253 100644 --- a/t/lib/dprof/V.pm +++ b/t/lib/dprof/V.pm @@ -17,7 +17,10 @@ $dpp .= '.com' if $^O eq 'VMS'; print "\nperl: $perl\n" if $opt_v; if( ! -f $perl ){ die "Where's Perl?" } -if( ! -f $dpp ){ die "Where's dprofpp?" } +if( ! -f $dpp ) { + ($dpp = $^X) =~ s@(^.*)[/|\\].*@$1/dprofpp@; + die "Where's dprofpp?" if( ! -f $dpp ); +} sub dprofpp { my $switches = shift; |