[svk-commit] r2485 - branches/2.0-releng/lib/SVK

nobody at bestpractical.com nobody at bestpractical.com
Tue Jul 17 11:33:39 EDT 2007


Author: clkao
Date: Tue Jul 17 11:33:39 2007
New Revision: 2485

Modified:
   branches/2.0-releng/lib/SVK/XD.pm

Log:
merge from trunk:
 r2393 at trunk:  clkao | 2007-05-08 15:00:54 +0100
 Improve error reporting when failed to save config.


Modified: branches/2.0-releng/lib/SVK/XD.pm
==============================================================================
--- branches/2.0-releng/lib/SVK/XD.pm	(original)
+++ branches/2.0-releng/lib/SVK/XD.pm	Tue Jul 17 11:33:39 2007
@@ -287,14 +287,14 @@
 
     if (-f $oldfile ) { 
       rename ( $oldfile => $ancient_backup ) ||
-	die loc("Couldn't remove your old backup configuration file %1 while writing the new one.", $oldfile);
+	die loc("Couldn't remove your old backup configuration file %1 while writing the new one: %2.\n", $oldfile, $!);
     }
     if (-f $file ) {
         rename ($file => $oldfile) ||
-        	die loc("Couldn't remove your old configuration file %1 while writing the new one.", $file);
+        	die loc("Couldn't remove your old configuration file %1 while writing the new one: %2.\n", $file, $!);
     }
     rename ($tmpfile => $file) ||
-	die loc("Couldn't write your new configuration file %1. A backup has been stored in %2. Please replace %1 with %2 immediately.", $file, $tmpfile);
+	die loc("Couldn't write your new configuration file %1. A backup has been stored in %2. Please replace %1 with %2 immediately: %3.\n", $file, $tmpfile, $!);
 
     if (-f $ancient_backup ) {
       unlink ($ancient_backup) ||


More information about the svk-commit mailing list