Allow output files to overwrite input files (bug #21280). Thanks to

[pspp-builds.git] / src / language / data-io / print-space.c

diff --git a/src/language/data-io/print-space.c b/src/language/data-io/print-space.c
index 39773ec0843d98588dd8c11401201e21a2f3983c..c3a2e09a3d93f6f56de75da1a12346ee2329a8b7 100644 (file)
--- a/src/language/data-io/print-space.c
+++ b/src/language/data-io/print-space.c
@@ -82,6 +82,7 @@ cmd_print_space (struct lexer *lexer, struct dataset *ds)
       writer = dfm_open_writer (handle);
       if (writer == NULL)
         {
+          fh_unref (handle);
           expr_free (expr);
           return CMD_FAILURE;
         }
@@ -95,6 +96,7 @@ cmd_print_space (struct lexer *lexer, struct dataset *ds)
 
   add_transformation (ds,
                      print_space_trns_proc, print_space_trns_free, trns);
+  fh_unref (handle);
   return CMD_SUCCESS;
 }