From 7cf8c5c29158564af6eb533c524c50ca5b5ec7bd Mon Sep 17 00:00:00 2001
From: Werner Koch <wk@gnupg.org>
Date: Fri, 26 May 2023 14:19:27 +0200
Subject: [PATCH] agent: Fix printed error in findkey.

* agent/findkey.c (agent_write_private_key): Fix error reporting.
---
 agent/findkey.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/agent/findkey.c b/agent/findkey.c
index 2ad5044fe..7917d2981 100644
--- a/agent/findkey.c
+++ b/agent/findkey.c
@@ -237,13 +237,14 @@ agent_write_private_key (const unsigned char *grip,
   fp = fname ? es_fopen (fname, "wbx,mode=-rw") : NULL;
   if (!fp)
     {
+      err = gpg_error_from_syserror ();
       log_error ("can't create '%s': %s\n", fname, gpg_strerror (err));
       goto leave;
     }
 
   err = nvc_write (pk, fp);
-  if (!err)
-    err = es_fflush (fp);
+  if (!err && es_fflush (fp))
+    err = gpg_error_from_syserror ();
   if (err)
     {
       log_error ("error writing '%s': %s\n", fname, gpg_strerror (err));