pg: check writing to a file was successful

Signed-off-by: Sami Kerola <kerolasa@iki.fi>

diff --git a/text-utils/pg.c b/text-utils/pg.c
index c00b7371f3aaedded7659f32f86f80e8254f36ed..7ddf96bf98da35223c75086fea5000ecd0db7fcc 100644 (file)
--- a/text-utils/pg.c
+++ b/text-utils/pg.c
@@ -1228,7 +1228,14 @@ static void pgfile(FILE *f, const char *name)
                                        /* No error check for compat. */
                                        fwrite_all(b, sizeof *b, sz, save);
                                }
-                               fclose(save);
+                               if (close_stream(save) != 0) {
+                                       cmd.count = errno;
+                                       mesg(_("write failed"));
+                                       mesg(": ");
+                                       mesg(p);
+                                       mesg(strerror(cmd.count));
+                                       goto newcmd;
+                               }
                                fseeko(fbuf, (off_t)0, SEEK_END);
                                mesg(_("saved"));
                                goto newcmd;