Mercurial > pub > buggler

comparison translate.pl @ 12:52b34ea50eff default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync: work time projection doesn't seem to be working anyway
author cin
date Sun, 13 Sep 2015 19:37:16 +0300
parents 4eb9fdf4efa9
children
comparison
equal deleted inserted replaced
11:4eb9fdf4efa9 12:52b34ea50eff
23 $bugs = [$bugs] unless ref $bugs eq 'ARRAY'; 23 $bugs = [$bugs] unless ref $bugs eq 'ARRAY';
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
30 #[ 'cat' ], 30 [ 'cat' ],
31 '<pipe', \*HIN, '>', \*STDOUT 31 '<pipe', \*HIN, '>', \*STDOUT
32 ) or die "failed to create pipe: $!"; 32 ) or die "failed to create pipe: $!";
33 33
34 binmode *HIN, ":encoding(utf-8)"; 34 binmode *HIN, ":encoding(utf-8)";
35 my $writer = 35 my $writer =
36 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'); 37 $writer->timereports('on');
38 $writer->timeresolution(0.25); 38 $writer->timeresolution({minutes => 15});
39 39
40 eval { 40 eval {
41 my %visited; 41 my %visited;
42 42
43 my $fetched = $bz->GetBugsHierarchy( { ids => [283] } ); 43 my $fetched = $bz->GetBugsHierarchy( { ids => [283] } );