- translator=$(git diff --cached -- ${pofile} | perl -le 'while (<>) { if (/^\+(?:#|.*?:) *(.*?)(<[^@>]+@[^>]+>)/p) { $xltrs{$2} = $1 unless $xltrs{$2}; } last if /^\+"Last-Translator: /; }; push(@out, $n.$e) while (($e, $n) = each %xltrs); print(join(", ", @out));')
+ translator=$(git diff --cached -- ${pofile} | perl -le '
+ while (<>) {
+ if (/^(?:\+(?:#|.*?:)|[ +]"Last-Translator:) *(.*?)(<[^@>]+@[^>]+>)/p) {
+ $xltrs{$2} = $1 unless $xltrs{$2};
+ last if $& =~ /Last-Translator:/;
+ }
+ }
+ push(@out, $n.$e) while (($e, $n) = each %xltrs);
+ print(join(", ", @out));
+ ')