Demote the surrogate and non-character errors to warnings.

[p5sagit/p5-mst-13.2.git] / t / lib / dprof / V.pm

diff --git a/t/lib/dprof/V.pm b/t/lib/dprof/V.pm
index cbdeca4..152cddc 100644 (file)
--- 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;