From: Henrik Tougaard <ht.000@foa.dk>
Date: Tue, 23 Jul 2002 13:45:49 +0000 (+0000)
Subject: [perl #15398] Usage::pod2usage looks for perldoc in $Config{bin} and not in $Config... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=98c7bfd488ae0b104d3bdd0c2f363b258374696b;p=p5sagit%2Fp5-mst-13.2.git

[perl #15398] Usage::pod2usage looks for perldoc in $Config{bin} and not in $Config{scriptdir}
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
--- 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 {