From f50d1bba6d65e1ec4b1d66d3358cf376ee22ce38 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sat, 21 Oct 2006 10:59:29 +0000
Subject: [PATCH] Use correct errno value for error writing to new .main during
 compact.

---
 cdb/writeable.c  | 2 +-
 debian/changelog | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/cdb/writeable.c b/cdb/writeable.c
index 0df1b27..9eefb22 100644
--- 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 64d09f7..a79232e 100644
--- 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;
-- 
2.30.2