3 if (open F
, '-|', 'find', $ARGV[0] || '.', '-type', 'f', '-name', '*.po') {
4 while (defined(my $path = readline F
)) {
7 (my $ref = $path) =~ s/\.po$/\.master.po/;
9 printf 'Updating %s ', $path;
10 my $returnCode = system("git show --format=\%B 'master:$path' > '$ref'");
11 if ( $returnCode == 0 )
13 system('msgmerge', '-N', '-o', $path, $ref, $path);
14 system('msgattrib', '--no-obsolete', '-o', $path, $path);
16 print "...failed due to git error.\n";