readtokens: do not leak internal token_lengths buffer

* lib/readtokens.c (readtokens): Free the local, lengths,
when the supplied "token_lengths" parameter is NULL.

diff --git a/ChangeLog b/ChangeLog
index 56b60d2..42257ee 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2010-01-18  Jim Meyering  <meyering@redhat.com>
+
+       readtokens: do not leak internal token_lengths buffer
+       * lib/readtokens.c (readtokens): Free the local, lengths,
+       when the supplied "token_lengths" parameter is NULL.
+
 2010-01-17  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 
        Fix a couple of missing LIBTHREAD link failures on AIX.

diff --git a/lib/readtokens.c b/lib/readtokens.c
index e29f20e..c65c1b1 100644 (file)
--- a/lib/readtokens.c
+++ b/lib/readtokens.c
@@ -197,5 +197,7 @@ readtokens (FILE *stream,
   *tokens_out = tokens;
   if (token_lengths != NULL)
     *token_lengths = lengths;
+  else
+    free (lengths);
   return n_tokens;
 }