X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fregression.q;h=0b7250cee58b17361f34a58089ed2b2ad972542a;hb=952c7c512b2eb481df13e25e65a73bf562ca6e81;hp=c10cc59e1f75409cea4bdd54153133024c0e1ff8;hpb=d96e59d1c5f17bd3b4b3b757640851731fde3c78;p=pspp-builds.git

diff --git a/src/language/stats/regression.q b/src/language/stats/regression.q
index c10cc59e..0b7250ce 100644
--- a/src/language/stats/regression.q
+++ b/src/language/stats/regression.q
@@ -1136,7 +1136,10 @@ run_regression (struct casereader *input, struct cmd_regression *cmd,
   assert (models != NULL);
 
   if (!casereader_peek (input, 0, &c))
-    return true;
+    {
+      casereader_destroy (input);
+      return true;
+    }
   output_split_file_values (ds, &c);
   case_destroy (&c);