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;
+}