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

[hv]

Change 17691 by [EMAIL PROTECTED] on 2002/08/08 14:01:50

        Subject: [perl #15398] Usage::pod2usage looks for perldoc in $Config{bin} and 
not in $Config{scriptdir}
        From: Henrik Tougaard (via RT) <[EMAIL PROTECTED]>
        Date: 23 Jul 2002 13:45:49 -0000 (Tue 14:45 BST)
        Message-id: <rt-15398-31095.6.30466042998663@perl>

Affected files ...

.... //depot/perl/lib/Pod/Usage.pm#16 edit

Differences ...

==== //depot/perl/lib/Pod/Usage.pm#16 (text) ====
Index: perl/lib/Pod/Usage.pm
--- perl/lib/Pod/Usage.pm#15~14430~     Sat Jan 26 12:54:16 2002
+++ perl/lib/Pod/Usage.pm       Thu Aug  8 07:01:50 2002
@@ -506,7 +506,7 @@
              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 {
End of Patch.