[libmodule-build-perl] 03/04: refresh man-ext patch: code moved

Florian Schlichting fsfs at alioth.debian.org
Thu Aug 8 15:56:07 UTC 2013


This is an automated email from the git hooks/post-receive script.

fsfs pushed a commit to branch master
in repository libmodule-build-perl.

commit f557e9a2e8840cfbee8b3db93c3b0e9d9f64b4c7
Author: Florian Schlichting <fsfs at debian.org>
Date:   Thu Aug 8 17:52:53 2013 +0200

    refresh man-ext patch: code moved
---
 debian/patches/man-ext |   40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/debian/patches/man-ext b/debian/patches/man-ext
index 332f7a7..fd2fa42 100644
--- a/debian/patches/man-ext
+++ b/debian/patches/man-ext
@@ -1,25 +1,25 @@
 Subject: Fix manual page extensions for Debian.
 Author: Niko Tyni <ntyni at debian.org>
 Forwarded: not-needed
-Reviewed-by: Nicholas Bamber <nicholas at periapt.co.uk>
-Last-Update: 2012-02-25
+Reviewed-by: Florian Schlichting <fsfs at debian.org> 
+Last-Update: 2013-08-08
 --- a/lib/Module/Build/Base.pm
 +++ b/lib/Module/Build/Base.pm
-@@ -3262,7 +3262,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 => '1p' ); # binaries go in section 1
-     my $manpage = $self->man1page_name( $file ) . '.' .
-                   $self->config( 'man1ext' );
-     my $outfile = File::Spec->catfile($mandir, $manpage);
-@@ -3287,7 +3287,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);
+@@ -3256,7 +3256,7 @@
+ 
+ sub manify_bin_pods {
+   my $self    = shift;
+-  my %podman_args = (section =>  1, @_); # binaries go in section 1
++  my %podman_args = (section =>  '1p', @_); # binaries go in section 1
+ 
+   my $files   = $self->_find_pods( $self->{properties}{bindoc_dirs},
+                                    exclude => [ $self->file_qr('\.bat$') ] );
+@@ -3283,7 +3283,7 @@
+ 
+ sub manify_lib_pods {
+   my $self    = shift;
+-  my %podman_args = (section => 3, @_); # libraries go in section 3
++  my %podman_args = (section => '3pm', @_); # libraries go in section 3
+ 
+   my $files   = $self->_find_pods($self->{properties}{libdoc_dirs});
+   return unless keys %$files;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmodule-build-perl.git



More information about the Pkg-perl-cvs-commits mailing list