lib/touch-po.pl

   1 #!/usr/bin/perl -i
   2 require 5.008;
   3 use strict;
   4 use warnings;
   5 use POSIX;
   6
   7 my $pot_creation_date = strftime "%Y-%m-%d %H:%M:%S +0000", gmtime();
   8
   9 while (<>) {
  10     s/^("PO-Revision-Date:).*(\\n")/$1 $pot_creation_date$2/;
  11     print;
  12 }