# HG changeset patch
# User Jim Meyering <meyering@redhat.com>
# Date 1209499487 -7200
# Node ID 6e074c9f695a309e4f50ccf4b61f0075ff8da367
# Parent  4f6cf8a4d874cc4054df4ee3d619d9b83bb17aee
When the is more than one match in a block, match all of them.

* build-aux/useless-if-before-free: Iterate through each block
until there are no more matches.

diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2008-04-29  Jim Meyering  <meyering@redhat.com>
 
+	When the is more than one match in a block, match all of them.
+	* build-aux/useless-if-before-free: Iterate through each block
+	until there are no more matches.
+
 	Fix broken useless-if-before-free script.
 	* build-aux/useless-if-before-free: Fix typo: missing "?" after
 	the expression to match cast of argument to free-like function.
diff --git a/build-aux/useless-if-before-free b/build-aux/useless-if-before-free
--- a/build-aux/useless-if-before-free
+++ b/build-aux/useless-if-before-free
@@ -2,7 +2,7 @@
 # Detect instances of "if (p) free (p);".
 # Likewise for "if (p != NULL) free (p);".  And with braces.
 
-my $VERSION = '2008-04-29 17:55'; # UTC
+my $VERSION = '2008-04-29 19:56'; # UTC
 # The definition above must lie within the first 8 lines in order
 # for the Emacs time-stamp write hook (at end) to update it.
 # If you change this file with Emacs, please let the write hook
@@ -121,10 +121,10 @@
           $err = EXIT_ERROR, next;
       while (defined (my $line = <FH>))
         {
-          if ($line =~
+          while ($line =~
               /\b(if\s*\(\s*(\S+?)(?:\s*!=\s*NULL)?\s*\)
                (?:   \s*$regexp\s*\((?:\s*\([^)]+\))?\s*\2\s*\)|
-                \s*\{\s*$regexp\s*\((?:\s*\([^)]+\))?\s*\2\s*\)\s*;\s*\}))/sx)
+                \s*\{\s*$regexp\s*\((?:\s*\([^)]+\))?\s*\2\s*\)\s*;\s*\}))/sxg)
             {
               $found_match = 1;
               $list