[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.69,1.70"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv15276/lib/Locale/Po4a

Modified Files:
	Po.pm 
Log Message:
Add a backup argument tot specify if we want a ~ backup file.


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -d -r1.69 -r1.70
--- Po.pm	30 Nov 2006 14:17:15 -0000	1.69
+++ Po.pm	30 Nov 2006 14:40:11 -0000	1.70
@@ -343,7 +343,7 @@
 =cut
 
 sub move_po_if_needed {
-    my ($new_po, $old_po) = (shift, shift);
+    my ($new_po, $old_po, $backup) = (shift, shift, shift);
     my $diff;
 
     if (-e $old_po) {
@@ -356,6 +356,12 @@
             my ($atime, $mtime) = (time,time);
             utime $atime, $mtime, $old_po;
         } else {
+            if ($backup) {
+                copy $old_po, $old_po."~"
+                  or die wrap_msg(dgettext("po4a","Can't copy %s to %s: %s."),
+                                  $old_po, $old_po."~", $!);
+            } else {
+            }
             move $new_po, $old_po
                 or die wrap_msg(dgettext("po4a","Can't move %s to %s: %s."),
                                 $new_po, $old_po, $!);