Index: /trunk/cgi-bin/IPDB.pm
===================================================================
--- /trunk/cgi-bin/IPDB.pm	(revision 742)
+++ /trunk/cgi-bin/IPDB.pm	(revision 743)
@@ -2059,4 +2059,5 @@
 
   my @ret;
+  my @newfreelist;
   eval {
     $dbh->do("UPDATE allocations SET cidr = ? WHERE id = ?", undef, $newblock, $id);
@@ -2064,13 +2065,12 @@
     # find the netblock(s) that are now free
     my @workingblocks = $oldblock->split($newblock->masklen);
-    my @wb2;
     foreach my $newsub (@workingblocks) {
       next if $newsub == $newblock;
-      push @wb2, $newsub;
-    }
-    @wb2 = Compact(@wb2);
+      push @newfreelist, $newsub;
+    }
+    @newfreelist = Compact(@newfreelist);
 
     # set new freeblocks, and clean up any IP pool entries if needed.
-    foreach my $newfree (@wb2) {
+    foreach my $newfree (@newfreelist) {
       my @clist;
       # the block we're munging
@@ -2093,5 +2093,5 @@
       }
 
-    } # $newfree (@wb2)
+    } # $newfree (@newfreelist)
 
     # additional cleanup on net/gw/bcast IPs in pool