- printf "Updating %-40s", $file;
- system("msgmerge", "-U", "-N", $file, "$source/templates/$basename.pot");
- fixup_header_order($file);
+ my ( $basename ) = $file =~ m{.+/([^/]+)\.po$};
+
+ if( -f "$dir/templates/$basename.pot" )
+ {
+ my $head = read_header($file);
+
+ printf "Updating %-40s", $file;
+ system("msgmerge", "-U", "-N", $file, "$dir/templates/$basename.pot");
+
+ write_header($file, $head);
+ }