| --- 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; |
| } |