From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 3 Oct 1998 03:59:50 +0000 (+0000)
Subject: suppress manifypods leak in extensions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39e216bc90d449c29ecedac1a04e0b8d579b806c;p=p5sagit%2Fp5-mst-13.2.git

suppress manifypods leak in extensions

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

diff --git a/ext/Errno/Makefile.PL b/ext/Errno/Makefile.PL
index ffc8c4b..bb1467b 100644
--- a/ext/Errno/Makefile.PL
+++ b/ext/Errno/Makefile.PL
@@ -5,6 +5,7 @@ use ExtUtils::MakeMaker;
 WriteMakefile(
     NAME	 => 'Errno',
     VERSION_FROM => 'Errno_pm.PL',
+    MAN3PODS     => ' ', 	# Pods will be built by installman.
     PL_FILES	 => {'Errno_pm.PL'=>'Errno.pm'},
     PM		 => {'Errno.pm' => '$(INST_LIBDIR)/Errno.pm'},
     'clean'	 => {FILES => 'Errno.pm'},
diff --git a/ext/IPC/SysV/Makefile.PL b/ext/IPC/SysV/Makefile.PL
index c8e320f..370a965 100644
--- a/ext/IPC/SysV/Makefile.PL
+++ b/ext/IPC/SysV/Makefile.PL
@@ -22,6 +22,7 @@ sub MY::libscan
 WriteMakefile(
 	VERSION_FROM	=> "SysV.pm",
 	NAME      	=> "IPC::SysV",
+	MAN3PODS	=> ' ', 	# Pods will be built by installman.
  
 	'dist'    	=> {COMPRESS => 'gzip -9f',
 			    SUFFIX   => 'gz', 
diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index 8040bf5..9d0ecc3 100644
--- a/pod/pod2man.PL
+++ b/pod/pod2man.PL
@@ -318,8 +318,8 @@ $cutting = 1;
 # running an installed version of Perl to produce documentation from an
 # uninstalled newer version's pod files.
 if ($^O ne 'plan9' and $^O ne 'dos' and $^O ne 'os2' and $^O ne 'MSWin32') {
-  ($version,$patch) =
-    `\PATH=.:..:\$PATH; perl -v` =~ /version (\d\.\d{3})(?:_(\d{2}))?/;
+  my $perl = (-x './perl') ? './perl' : ((-x '../perl') ? '../perl' : '');
+  ($version,$patch) = `$perl -e 'print $]'` =~ /^(\d\.\d{3})(\d{2})?/ if $perl;
 }
 # No luck; we'll just go with the running Perl's version
 ($version,$patch) = $] =~ /^(.{5})(\d{2})?/ unless $version;