use local variables in loops

diff --git a/util/update_branches b/util/update_branches
index ffc18433d9a9af3a902a3ad2efecd6eea2c22257..9d20c68577b3fa2b00ec3e42ecdf442efd40566a 100644 (file)
--- a/util/update_branches
+++ b/util/update_branches
@@ -14,7 +14,7 @@
 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 # PERFORMANCE OF THIS SOFTWARE.
 
-# $Id: update_branches,v 1.19 2007/01/30 06:00:00 marka Exp $
+# $Id: update_branches,v 1.20 2007/01/30 06:29:21 marka Exp $
 
 #
 #  Track which branches are still open or not in the bind9 cvs repository.
@@ -52,6 +52,9 @@ $module = "bind9";
 #
 open(BRANCHES, "<doc/private/branches") || die "can't open util/branches: $!";
 while (<BRANCHES>) {
+       my $branch;
+       my $status;
+       my $who;
        chomp;
        next if (/^-/);
        next if (/^Branch/);
@@ -85,6 +88,13 @@ close (BRANCHES);
 # T 1999-03-15 21:15 +0000 vixie bind [ietf44:A]
 open(HISTORY, "cvs history -T -a 2> /dev/null |") || die("can't get history");
 while (<HISTORY>) {
+       my $tag;
+       my $date;
+       my $time;
+       my $tz;
+       my $who;
+       my $mod;
+       my $branch;
         chomp;
         s/[][]//g;
         s/:[^ \t]+$//;
@@ -95,7 +105,7 @@ while (<HISTORY>) {
        next if (exists($history{$branch}));
        $history{$branch} = $who;
        $dates{$branch} = "$date $time $tz";
-        print "$_\n";
+        # print "$_\n";
 }
 close (HISTORY);