diff options
| author | Henrik Tougaard <ht.000@foa.dk> | 2002-07-23 13:45:49 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-08 14:01:50 +0000 |
| commit | 98c7bfd488ae0b104d3bdd0c2f363b258374696b (patch) | |
| tree | 2a13fa18cbb6a22804cd894e2e9985358b6c4c66 | |
| parent | 3508218bd0ec145587542127c5ff0393c4aab212 (diff) | |
| download | perl-98c7bfd488ae0b104d3bdd0c2f363b258374696b.tar.gz | |
[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
| -rw-r--r-- | lib/Pod/Usage.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm index 771cff451c..9898a97c00 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 { |