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