diff options
author | Denis Barbier <barbier> | 2002-11-13 10:16:52 +0000 |
---|---|---|
committer | Denis Barbier <barbier> | 2002-11-13 10:16:52 +0000 |
commit | 33e6a17a1b95e6cd0abece9e39d3e835f1ebe658 (patch) | |
tree | 4f4995778bd846c997417a34a27e68c09543b3ef /stattrans.pl | |
parent | 5ccaa1b445677949277576c34beaa94739bfea0e (diff) |
Temporarily add debugging output to track a bug related to msgfmt
CVS version numbers
stattrans.pl: 1.46 -> 1.47
Diffstat (limited to 'stattrans.pl')
-rwxr-xr-x | stattrans.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/stattrans.pl b/stattrans.pl index 3aa96592066..e465d49dbc9 100755 --- a/stattrans.pl +++ b/stattrans.pl @@ -206,12 +206,14 @@ if ($opt_l) { print "Computing statistics in gettext files... " if ($config{'verbose'}); my %po_translated,%po_fuzzy,%po_untranslated,%po_total; my %percent_po_t,%percent_po_u,%percent_po_f; +print STDERR "Debugging output temporarily added in order to track a bug, do not care\n"; foreach $lang (@search_in) { next if $lang eq 'english'; $l = $langs{$lang}; $po_translated{"total"}{$lang} = $po_fuzzy{"total"}{$lang} = $po_untranslated{"total"}{$lang} = 0; my @status = qx,LC_ALL=C make -C $opt_w/$lang/po stats 2>&1 1>/dev/null,; foreach $line (@status) { +print STDERR $line; chomp $line; ($domain = $line) =~ s/\..*//; $po_translated{$domain}{$lang} = ($line =~ /(\d+) translated/ ? $1 : "0"); |