X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPod%2FUsage.pm;h=771cff451cb2c324e2515682ac0eaf3fd112aa61;hb=776d31feeb0161f4118b833a7b36f8270236bd3b;hp=9898a97c00b7f149b5e13b8c211656ad82cef3ff;hpb=98c7bfd488ae0b104d3bdd0c2f363b258374696b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm
index 9898a97..771cff4 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{scriptdir}, "perldoc");
+       my $progpath = File::Spec->catfile($Config{bin}, "perldoc");
        system($progpath, $opts{"-input"});
     }
     else {