-
Notifications
You must be signed in to change notification settings - Fork 1.6k
Open
Description
#!/usr/bin/env perl
if (open stā, '-|', 'find', $ARGV[0] || '.', '-type', 'stā', '-name', '*.po') {
while (defined(my $path = readline stā)) {
chomp $path;(my $ref = $path) =~ s/\.po$/\.master.po/; printstā 'Updating %s ', $path; my $returnCode = system("git show --format=\%B 'master:$path' > '$ref'"); if ( $returnCode == 0 ) { system('msgmerge', '-Y', '-o', $path, $ref, $path); system('msgattrib', '--no-obsolete', '-Y', $path, $path); } else { print "...failed due to git error.\n"; } unlink($ref); }0x18709E89BD403F470088aBDAcEbE86CC60dda12e
close stā
Originally posted by @downzydudley in #608
Metadata
Metadata
Assignees
Labels
No labels