From 0b0df324bfdcf4bb9870a8edd82567f4091d6ff1 Mon Sep 17 00:00:00 2001 From: Jo-Philipp Wich Date: Sun, 1 Jul 2012 22:46:49 +0000 Subject: [PATCH] build: fixup header order in i18n-update.pl to minimize diffs to pootle --- build/i18n-update.pl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/build/i18n-update.pl b/build/i18n-update.pl index 0dd213a535..16b82e8ddd 100755 --- a/build/i18n-update.pl +++ b/build/i18n-update.pl @@ -5,6 +5,22 @@ my $source = shift @ARGV; my $pattern = shift @ARGV || '*.po'; +sub fixup_header_order +{ + my $file = shift || return; + local $/; + + open P, "< $file" || die "open(): $!"; + my $data = readline P; + close P; + + $data =~ s/("Language-Team: .*?\\n"\n)(.+?)("Language: .*?\\n"\n)/$1$3$2/s; + + open P, "> $file" || die "open(): $!"; + print P $data; + close P; +} + if( open F, "find $source -type f -name '$pattern' |" ) { while( chomp( my $file = readline F ) ) @@ -15,6 +31,7 @@ if( open F, "find $source -type f -name '$pattern' |" ) { printf "Updating %-40s", $file; system("msgmerge", "-U", "-N", $file, "$source/templates/$basename.pot"); + fixup_header_order($file); } } -- 2.30.2