diff options
| author | Robin Barker <RMBarker@cpan.org> | 2001-11-21 17:48:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-21 17:31:28 +0000 |
| commit | c6a5b0b7fcd5df8c39aef4485d955e2f2e47f6bc (patch) | |
| tree | f7e7da63729777cb885c7fcb3e6ff3b328d02b97 /utils/perldoc.PL | |
| parent | 1cf4a2185a29f0c34cb30a32827011b82fcacbdb (diff) | |
| download | perl-c6a5b0b7fcd5df8c39aef4485d955e2f2e47f6bc.tar.gz | |
problems with pod2man
Message-Id: <200111211748.RAA07123@tempest.npl.co.uk>
p4raw-id: //depot/perl@13177
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 565d03388b..3583166dfa 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -25,6 +25,8 @@ print "Extracting $file (with variable substitutions)\n"; # In this section, perl variables will be expanded during extraction. # You can use $Config{...} to use Configure variables. +my $versiononly = $Config{versiononly} ? $Config{version} : ''; + print OUT <<"!GROK!THIS!"; $Config{startperl} eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}' @@ -43,7 +45,11 @@ my \@pagers = (); push \@pagers, \$pager if -x \$pager; (my \$bindir = <<'/../') =~ s/\\s*\\z//; -$Config{scriptdir} +$Config{installscript} +/../ + +(my \$pod2man = <<'/../') =~ s/\\s*\\z//; +pod2man$versiononly /../ !GROK!THIS! @@ -597,7 +603,7 @@ foreach (@found) { Pod::Text->new()->parse_from_file($file, $tmpfd); } elsif (not $opt_u) { - my $cmd = catfile($bindir, 'pod2man') . " --lax $file | $opt_n -man"; + my $cmd = catfile($bindir, $pod2man) . " --lax $file | $opt_n -man"; $cmd .= " | col -x" if $^O =~ /hpux/; my $rslt = `$cmd`; $rslt = filter_nroff($rslt) if $filter; |