[Po4a-commits] "po4a po4a,1.41,1.42"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv1307

Modified Files:
	po4a 
Log Message:
Add a write_if_needed subroutine in Po.pm to check if an update is needed.
Use it in po4a to write the POT when the --force option is not specified.
see #339459.


Index: po4a
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- po4a	17 Nov 2005 21:27:04 -0000	1.41
+++ po4a	17 Nov 2005 23:33:13 -0000	1.42
@@ -572,7 +572,11 @@
                   'file_in_charset'  => $file_opts{"mastchar"});
     $potfile = $doc->getpoout();
 }
-$potfile->write($pot_filename);
+if ($po4a_opts{"force"}) {
+    $potfile->write($pot_filename);
+} else {
+    $potfile->write_if_needed($pot_filename);
+}
 
 print wrap_msg(gettext(" (%d entries)"), $potfile->count_entries());
 } else {