--- t/perldoc.t.orig	2016-11-17 23:37:36.000000000 -0800
+++ t/perldoc.t	2017-03-06 15:50:15.000000000 -0800
@@ -34,10 +34,10 @@
 
 my $X = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
 my $Mblib = Mblib();
-my $perldoc = File::Spec->catfile($Config{installbin}, 'perldoc');
+my $perldoc = File::Spec->catfile($Config{installbin}, 'perldoc-@@MP_PERL5_MAJOR@@');
 if ($ENV{PERL_CORE}) {
   $perldoc = File::Spec->catfile(
-    '..','..','utils', ($Config{usecperl} ? 'cperldoc' : 'perldoc'));
+    '..','..','utils', ($Config{usecperl} ? 'cperldoc' : 'perldoc-@@MP_PERL5_MAJOR@@'));
   $X .= ' -I../../pod';
 }
 my $perlcc = "$X $Mblib script/perlcc";