diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-03 03:59:50 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-03 03:59:50 +0000 |
| commit | 39e216bc90d449c29ecedac1a04e0b8d579b806c (patch) | |
| tree | 765eb3b9678f1503d9d147d8a2bc0a08d1b2b7ae | |
| parent | c8dba6f3d3200961ec98c5df73bace6ef2bb27e0 (diff) | |
| download | perl-39e216bc90d449c29ecedac1a04e0b8d579b806c.tar.gz | |
suppress manifypods leak in extensions
p4raw-id: //depot/perl@1922
| -rw-r--r-- | ext/Errno/Makefile.PL | 1 | ||||
| -rw-r--r-- | ext/IPC/SysV/Makefile.PL | 1 | ||||
| -rw-r--r-- | pod/pod2man.PL | 4 |
3 files changed, 4 insertions, 2 deletions
diff --git a/ext/Errno/Makefile.PL b/ext/Errno/Makefile.PL index ffc8c4b7e3..bb1467bbc8 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 c8e320f030..370a965f16 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 8040bf5d63..9d0ecc31bc 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; |