csv: Close pipe files properly.

[pspp-builds.git] / src / output / csv.c

diff --git a/src/output/csv.c b/src/output/csv.c
index 4b99772d42417d04a9ee1a3668ed943531567aa3..625ce82a07505dd99dddff562c5981568af2d311 100644 (file)
--- a/src/output/csv.c
+++ b/src/output/csv.c
@@ -92,10 +92,11 @@ csv_destroy (struct output_driver *driver)
 {
   struct csv_driver *csv = csv_driver_cast (driver);
 
+  if (csv->file != NULL)
+    fn_close (csv->file_name, csv->file);
+
   free (csv->separator);
   free (csv->file_name);
-  if (csv->file != NULL)
-    fclose (csv->file);
   free (csv);
 }