X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fregression.q;h=2c1c9aa8a0f5df9e2cf3d211fb5f23f54be2a487;hb=56728c4e740a15c66266f54bed1307299f723f56;hp=869f32a716ee0c719fc7e247f40f6015b58f285f;hpb=6bae018e92d45abceef4224117a147f87f2853a9;p=pspp-builds.git

diff --git a/src/language/stats/regression.q b/src/language/stats/regression.q
index 869f32a7..2c1c9aa8 100644
--- a/src/language/stats/regression.q
+++ b/src/language/stats/regression.q
@@ -1211,7 +1211,6 @@ run_regression (struct casereader *input, struct cmd_regression *cmd,
                 }
           gsl_vector_set (Y, row, case_num (&c, dep_var));
             }
-          casereader_destroy (reader);
 	  /*
 	     Now that we know the number of coefficients, allocate space
 	     and store pointers to the variables that correspond to the
@@ -1238,6 +1237,7 @@ run_regression (struct casereader *input, struct cmd_regression *cmd,
 	{
 	  msg (SE, gettext ("No valid data found. This command was skipped."));
 	}
+      casereader_destroy (reader);
     }
   free (indep_vars);
   free (lopts.get_indep_mean_std);