diff options
Diffstat (limited to 'po/clean_po.pl')
-rwxr-xr-x | po/clean_po.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/po/clean_po.pl b/po/clean_po.pl new file mode 100755 index 00000000..7022dc74 --- /dev/null +++ b/po/clean_po.pl @@ -0,0 +1,17 @@ +#!/usr/bin/perl + +# we remove old translations (#~ stuff) because some id's may be shared +# with what's extracted from the compss, and in such case msgfmt will +# not put the translations in the mo :( + +use MDK::Common; + +my $line_number = 0; +my @contents = cat_($ARGV[0]); + +foreach (@contents) { + $line_number++; + /^#, fuzzy/ && $contents[$line_number+1] =~ /^#~/ and next; + /^#~/ and next; + print; +} |