i18n: Machinery in po/

[dgit.git] / po / remove-potcdate

diff --git a/po/remove-potcdate b/po/remove-potcdate
new file mode 100755 (executable)
index 0000000..069a1de
--- /dev/null
+++ b/po/remove-potcdate
@@ -0,0 +1,11 @@
+#! /usr/bin/perl -n
+
+BEGIN {
+    $seen_potcdate = 0;
+}
+
+if (not $seen_potcdate and /^"POT-Creation-Date: .*"/) {
+    $seen_potcdate = 1;
+    next;
+}
+print;