From: ian <ian>
Date: Sat, 21 Oct 2006 10:59:29 +0000 (+0000)
Subject: Use correct errno value for error writing to new .main during compact.
X-Git-Tag: debian/1.1.1~28
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=f50d1bba6d65e1ec4b1d66d3358cf376ee22ce38;p=chiark-tcl.git

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

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;