[Po4a-commits] r2333 - /trunk/Build.PL

[barbier-guest at users.alioth.debian.org]

Author: barbier-guest
Date: Fri Nov 19 23:19:56 2010
New Revision: 2333

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2333
Log:
Remove 'man' target, 'po4a_build' does the job

Modified:
    trunk/Build.PL

Modified: trunk/Build.PL
URL: http://svn.debian.org/wsvn/po4a/trunk/Build.PL?rev=2333&op=diff
==============================================================================
--- trunk/Build.PL (original)
+++ trunk/Build.PL Fri Nov 19 23:19:56 2010
@@ -14,7 +14,6 @@
 	    $self->depends_on('po4a_build');
 	    $self->depends_on('docs');
 	    $self->depends_on('distmeta'); # regenerate META.yml
-	    $self->depends_on('man');
 	    $self->depends_on('postats');
 	}
 	sub ACTION_po4a_build {
@@ -136,64 +135,6 @@
 
 	    ExtUtils::Install::install(\%install_map, 1, 0, $self->{args}{uninst}||0); 
 	}
-	sub ACTION_man {
-	    my $self = shift;
-
-	    use Pod::Man;
-	    use Encode;
-
-	    # Translate binaries manpages
-	    my %options;
-	    $options{utf8} = 1;
-	    my $parser = Pod::Man->new (%options);
-
-	    system("PERL5LIB=lib perl po4a --previous po/pod.cfg") and die;
-	    system("mkdir -p blib/man/man7") and die;
-	    system("mkdir -p blib/man/man1") and die;
-	    system("cp doc/po4a.7.pod blib/man/man7") and die;
-
-	    foreach $file (@{$self->rscan_dir('blib/man',qr{\.pod$})}) {
-		next if $file =~ m/^man7/;
-		my $out = $file;
-		$out =~ s/\.pod$//;
-		$section = $2;
-		$parser->{name} = $out;
-		$parser->{name} =~ s/^.*\///;
-		$parser->{name} =~ s/^(.*).(1p|3pm|7)/$1/;
-		$parser->{section} = $2;
-		if ($parser->{section} ne "3pm") {
-		    $parser->{name} = uc $parser->{name};
-		}
-
-		my $lang = $out;
-		$lang =~ s/^blib\/man\/([^\/]*)\/.*$/$1/;
-
-		if ($lang eq "man7") {
-			$parser->{release} = $parser->{center} = "Po4a Tools";
-		} else {
-			my $command;
-			$command = "msggrep -K -E -e \"Po4a Tools\" po/pod/$lang.po |";
-			$command .= "msgconv -t UTF-8 | ";
-			$command .= "msgexec /bin/sh -c '[ -n \"\$MSGEXEC_MSGID\" ] ";
-			$command .= "&& cat || cat > /dev/null'";
-
-			my $title = `$command 2> /dev/null`;
-			$title = "Po4a Tools" unless length $title;
-			$title = Encode::decode_utf8($title);
-			$parser->{release} = $parser->{center} = $title;
-		}
-		$parser->parse_from_file ($file, $out);
-
-		system("gzip -9 -f $out") and die;
-		system("rm -f $file") and die;
-	    }
-
-	    # Install the manpages of the Shell scripts
-	    system ("cp scripts/po4aman-display-po.1 scripts/po4apod-display-po.1 blib/man/man1/") and die;
-	    foreach $file (@{$self->rscan_dir('blib/man',qr{\.1$})}) {
-		system ("gzip -9 -f $file") and die;
-	    }
-	}
 
 	sub ACTION_dist {
 	    my ($self) = @_;