Fix path of a test file for running in the core

p4raw-id: //depot/perl@30713

diff --git a/lib/Pod/Simple/t/reinit.t b/lib/Pod/Simple/t/reinit.t
index 8576e99..c10c65e 100644 (file)
--- a/lib/Pod/Simple/t/reinit.t
+++ b/lib/Pod/Simple/t/reinit.t
@@ -42,7 +42,7 @@ foreach my $file (
     next;
   }
 
-    my $precooked = $file;
+    my $precooked = source_path($file);
     my $outstring;
     my $compstring;
     $precooked =~ s<\.pod><o.txt>s;