[patch] fix-io-capture-0.36.patch

fix-io-capture-0.36.patch (text/plain), 788 bytes, created by Kent Fredric (IRC: kent\n) (RETIRED) on 2009-09-04 19:18:16 UTC

diff -Naur po4a-0.36/Build.PL po4a-0.36.new/Build.PL
--- po4a-0.36/Build.PL	2009-03-16 13:07:20.000000000 +1300
+++ po4a-0.36.new/Build.PL	2009-09-05 07:13:01.709420998 +1200
@@ -127,8 +127,14 @@
 	    my %options;
 	    $options{utf8} = 1;
 	    my $parser = Pod::Man->new (%options);
-
-	    system("PERL5LIB=lib perl po4a --previous po/pod.cfg") and die;
+     { # Fix for massive slowdown/Memory consumption
+       local %ENV = %ENV;
+       $ENV{PERL5LIB}='lib';
+       open( my $fh, '-|', qw( perl po4a --previous po/pod.cfg ))  or die;
+       while( defined ( my $line = <$fh> ) ){ 
+          print $line;
+       }
+     }
 	    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;