X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fprint-space.c;h=c3a2e09a3d93f6f56de75da1a12346ee2329a8b7;hb=707848060e414fe93458834446dd7cdbf800667f;hp=39773ec0843d98588dd8c11401201e21a2f3983c;hpb=a5a1e8c05118edd5d9fd0dfd1a6f421632779292;p=pspp

diff --git a/src/language/data-io/print-space.c b/src/language/data-io/print-space.c
index 39773ec084..c3a2e09a3d 100644
--- 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;
 }