Signed-off-by: Patrice Clement <monsieurp@gentoo.org>
+++ /dev/null
---- a/Po4aBuilder.pm
-+++ b/Po4aBuilder.pm
-@@ -29,7 +29,12 @@
- my $self = shift;
- $self->depends_on('binpo');
- $self->make_files_writable("po/pod");
-- system("./share/po4a-build -f po4a-build.conf") && die;
-+ { # Fix for massive slowdown/Memory consumption
-+ open( my $fh, '-|', qw( ./share/po4a-build -f po4a-build.conf )) or die;
-+ while( defined ( my $line = <$fh> ) ){
-+ print $line;
-+ }
-+ }
- File::Path::mkpath( File::Spec->catdir( 'blib', 'manl10n' ), 0, oct(777) );
- system ("cp -R _build/po4a/man/* blib/manl10n") && die;
- }
+++ /dev/null
-#! /usr/bin/perl
-# Remove header entry of two PO files and compare them
-
-my $f1 = shift(@ARGV);
-my $f2 = shift(@ARGV);
-
-open IN1, "<", $f1 or die "Unable to read 1st file: $!\n";
-open IN2, "<", $f2 or die "Unable to read 2nd file: $!\n";
-my $inMsgstr = 0;
-my $lineno = 0;
-while (<IN1>) {
- $lineno ++;
- if (m/^msgstr/) {
- $inMsgstr = 1;
- } elsif ($inMsgstr == 1 && $_ !~ /^"/) {
- last;
- }
-}
-$inMsgstr = 0;
-while (<IN2>) {
- if (m/^msgstr/) {
- $inMsgstr = 1;
- } elsif ($inMsgstr == 1 && $_ !~ /^"/) {
- last;
- }
-}
-
-# Now compare lines
-while (<IN1>) {
- $lineno ++;
- my $l2 = <IN2> or die "Unexpected EOF found when reading $f2\n";
- $_ eq $l2 or die "Files $f1 and $f2 differ at line $lineno:\n-$_+$l2\n";
-}
-close IN1;
-die "EOF expected at 2nd file\n" unless eof(IN2);
-close IN2;
-exit 0;