[perl #15398] Usage::pod2usage looks for perldoc in $Config{bin} and not in $Config...

From: Henrik Tougaard (via RT) <perlbug@perl.org>
Message-id: <rt-15398-31095.6.30466042998663@perl>

p4raw-id: //depot/perl@17691

diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm
index 771cff4..9898a97 100644 (file)
--- a/lib/Pod/Usage.pm
+++ b/lib/Pod/Usage.pm
@@ -506,7 +506,7 @@ sub pod2usage {
              and  $opts{"-output"} == \*STDOUT )
     {
        ## spit out the entire PODs. Might as well invoke perldoc
-       my $progpath = File::Spec->catfile($Config{bin}, "perldoc");
+       my $progpath = File::Spec->catfile($Config{scriptdir}, "perldoc");
        system($progpath, $opts{"-input"});
     }
     else {