Index: trunk/cgi-bin/main.cgi
===================================================================
--- trunk/cgi-bin/main.cgi	(revision 882)
+++ trunk/cgi-bin/main.cgi	(revision 883)
@@ -706,9 +706,7 @@
       if ($cidr->masklen() ne $webvar{maskbits}) {
         my $maskbits = $cidr->masklen();
-        my @subblocks;
         while ($maskbits++ < $webvar{maskbits}) {
-	  @subblocks = $cidr->split($maskbits);
+          $cidr = ($cidr->split($maskbits))[0];
         }
-        $cidr = $subblocks[0];
       }
     } # check for freeblocks assignment or IPDB-controlled assignment