+ 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));
+ ')