Use correct errno value for error writing to new .main during compact.

diff --git a/cdb/writeable.c b/cdb/writeable.c
index 0df1b2799ae55a59e60672c23e99fe56f97304aa..9eefb2289ee795fcb320636b4ccb775fd0f7585e 100644 (file)
--- a/cdb/writeable.c
+++ b/cdb/writeable.c
@@ -701,7 +701,7 @@ static int compact_core(Tcl_Interp *ip, Rw *rw, unsigned long logsz,
   if (!a.mainfile) PE("create .tmp for new main during compact");
 
   r= ht_forall(&rw->logincore, addto_main, &a);
-  if (r) { rc= cht_posixerr(ip, r, "error writing to new .main"
+  if (r) { rc= cht_posixerr(ip, errno, "error writing to new .main"
                            " during compact");  goto x_rc; }
 
   r= putc('\n', a.mainfile);

diff --git a/debian/changelog b/debian/changelog
index 64d09f77d19fde495e5173d9c9eb7c8879145104..a79232e83a9110c218ae7ac4a4b8b85d4168289b 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -4,6 +4,7 @@ chiark-tcl (1.0.2) unstable; urgency=low
   * Do not adns_cancel in the middle of adns_forallqueries.
   * strlen returns size_t, not int; fixed up everywhere relevant.
     Closes #393970.  (Bug exists only where int and ssize_t differ.)
+  * Use correct errno value for error writing to new .main during compact.
 
   Portability fixes:
   * Remove unecessary assertion of val<=0xffffffffUL where uint32_t val;