This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix cases where 'do file' should be 'do ./file'.
[perl5.git] / t / run / dtrace.t
index 2140973..b66736f 100644 (file)
@@ -136,7 +136,7 @@ dtrace_like(<< 'PERL_SCRIPT',
     BEGIN {@INC = '../lib'}
     use strict;
     require HTTP::Tiny;
-    do "run/dtrace.pl";
+    do "./run/dtrace.pl";
 PERL_SCRIPT
     << 'D_SCRIPT',
     loading-file { printf("loading-file <%s>\n", copyinstr(arg0)) }