Mercurial > pub > buggler

comparison translate.pl @ 11:4eb9fdf4efa9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring, non-working bookings
author cin
date Mon, 07 Sep 2015 19:18:21 +0300
parents 14a966369278
children 52b34ea50eff
comparison
equal deleted inserted replaced
10:14a966369278 11:4eb9fdf4efa9
24 24
25 local (*HIN); 25 local (*HIN);
26 26
27 my $proc = start( 27 my $proc = start(
28 [ 'saxon8', '-novw', '-', 'bug-list.xsl' ], 28 [ 'saxon8', '-novw', '-', 'bug-list.xsl' ],
29
29 #[ 'cat' ], 30 #[ 'cat' ],
30 '<pipe', \*HIN, '>', \*STDOUT 31 '<pipe', \*HIN, '>', \*STDOUT
31 ) or die "failed to create pipe: $!"; 32 ) or die "failed to create pipe: $!";
32 33
33 binmode *HIN, ":encoding(utf-8)"; 34 binmode *HIN, ":encoding(utf-8)";
34 my $writer = 35 my $writer =
35 BugWriter->new( OUTPUT => *HIN, DATA_INDENT => 2, DATA_MODE => 'on' ); 36 BugWriter->new( OUTPUT => *HIN, DATA_INDENT => 2, DATA_MODE => 'on' );
37 $writer->timereports('on');
38 $writer->timeresolution(0.25);
36 39
37 eval { 40 eval {
38 my %visited; 41 my %visited;
39 42
40 my $fetched = $bz->GetBugsHierarchy( { ids => [283] } ); 43 my $fetched = $bz->GetBugsHierarchy( { ids => [283] } );