|
Lines 127-134
Link Here
|
| 127 |
my %options; |
127 |
my %options; |
| 128 |
$options{utf8} = 1; |
128 |
$options{utf8} = 1; |
| 129 |
my $parser = Pod::Man->new (%options); |
129 |
my $parser = Pod::Man->new (%options); |
| 130 |
|
130 |
{ # Fix for massive slowdown/Memory consumption |
| 131 |
system("PERL5LIB=lib perl po4a --previous po/pod.cfg") and die; |
131 |
local %ENV = %ENV; |
|
|
132 |
$ENV{PERL5LIB}='lib'; |
| 133 |
open( my $fh, '-|', qw( perl po4a --previous po/pod.cfg )) or die; |
| 134 |
while( defined ( my $line = <$fh> ) ){ |
| 135 |
print $line; |
| 136 |
} |
| 137 |
} |
| 132 |
system("mkdir -p blib/man/man7") and die; |
138 |
system("mkdir -p blib/man/man7") and die; |
| 133 |
system("mkdir -p blib/man/man1") and die; |
139 |
system("mkdir -p blib/man/man1") and die; |
| 134 |
system("cp doc/po4a.7.pod blib/man/man7") and die; |
140 |
system("cp doc/po4a.7.pod blib/man/man7") and die; |
