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

[Nicolas FRANCOIS]

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

Modified Files:
	Po.pm 
Log Message:
Add reason for failures of system calls.


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -d -r1.68 -r1.69
--- Po.pm	30 Nov 2006 14:15:11 -0000	1.68
+++ Po.pm	30 Nov 2006 14:17:15 -0000	1.69
@@ -350,20 +350,20 @@
         $diff = qx(diff -q -I'^#:' -I'^"POT-Creation-Date:' -I'^"PO-Revision-Date:' $old_po $new_po);
         if ( $diff eq "" ) {
             unlink $new_po
-                or die wrap_msg(dgettext("po4a","Can't unlink %s."),
-                                $new_po);
+                or die wrap_msg(dgettext("po4a","Can't unlink %s: %s."),
+                                $new_po, $!);
             # touch the old PO
             my ($atime, $mtime) = (time,time);
             utime $atime, $mtime, $old_po;
         } else {
             move $new_po, $old_po
-                or die wrap_msg(dgettext("po4a","Can't move %s to %s."),
-                                $new_po, $old_po);
+                or die wrap_msg(dgettext("po4a","Can't move %s to %s: %s."),
+                                $new_po, $old_po, $!);
         }
     } else {
         move $new_po, $old_po
-            or die wrap_msg(dgettext("po4a","Can't move %s to %s."),
-                            $new_po, $old_po);
+            or die wrap_msg(dgettext("po4a","Can't move %s to %s: %s."),
+                            $new_po, $old_po, $!);
     }
 }