From: Robin Barker <RMBarker@cpan.org>
Date: Wed, 21 Nov 2001 17:48:51 +0000 (+0000)
Subject: problems with pod2man
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6a5b0b7fcd5df8c39aef4485d955e2f2e47f6bc;p=p5sagit%2Fp5-mst-13.2.git

problems with pod2man
Message-Id: <200111211748.RAA07123@tempest.npl.co.uk>

p4raw-id: //depot/perl@13177
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 565d033..3583166 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;