r7832 - /trunk/libmodule-build-perl/lib/Module/Build/Base.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Sep 21 10:38:50 2007
New Revision: 7832

URL: http://svn.debian.org/wsvn/?sc=1&rev=7832
Log:
* Apply patch by Steffen Moeller <steffen_moeller at gmx.de> so that modules
  which use Module::Build install man pages using correct section.
  Closes: #441987

Modified:
    trunk/libmodule-build-perl/lib/Module/Build/Base.pm

Modified: trunk/libmodule-build-perl/lib/Module/Build/Base.pm
URL: http://svn.debian.org/wsvn/trunk/libmodule-build-perl/lib/Module/Build/Base.pm?rev=7832&op=diff
==============================================================================
--- trunk/libmodule-build-perl/lib/Module/Build/Base.pm (original)
+++ trunk/libmodule-build-perl/lib/Module/Build/Base.pm Fri Sep 21 10:38:50 2007
@@ -2537,7 +2537,7 @@
   foreach my $file (keys %$files) {
     # Pod::Simple based parsers only support one document per instance.
     # This is expected to change in a future version (Pod::Simple > 3.03).
-    my $parser  = Pod::Man->new( section => 1 ); # binaries go in section 1
+    my $parser  = Pod::Man->new( section => '1pm' ); # binaries go in section 1
     my $manpage = $self->man1page_name( $file ) . '.' .
 	          $self->config( 'man1ext' );
     my $outfile = File::Spec->catfile($mandir, $manpage);
@@ -2561,7 +2561,7 @@
   while (my ($file, $relfile) = each %$files) {
     # Pod::Simple based parsers only support one document per instance.
     # This is expected to change in a future version (Pod::Simple > 3.03).
-    my $parser  = Pod::Man->new( section => 3 ); # libraries go in section 3
+    my $parser  = Pod::Man->new( section => '3pm' ); # libraries go in section 3
     my $manpage = $self->man3page_name( $relfile ) . '.' .
 	          $self->config( 'man3ext' );
     my $outfile = File::Spec->catfile( $mandir, $manpage);