Fixed a bug which caused a crash when reading non-existent files.

[pspp] / src / val-labs.c

diff --git a/src/val-labs.c b/src/val-labs.c
index 1af46a2c5d81496e5bc5f5156805a395d3002883..1cc7b84c7c8fb3b07de654e950f2f0273e9da736 100644 (file)
--- a/src/val-labs.c
+++ b/src/val-labs.c
@@ -79,12 +79,15 @@ do_value_labels (int erase)
           goto lossage;
 
       if (token != '/')
+       {
+       free (vars);
        break;
+       }
+
       lex_get ();
 
       free (vars);
     }
-  free (vars);
 
   if (token != '.')
     {