# along with this program. If not, see <http://www.gnu.org/licenses/>.
# TODO: FQ NBSP ?
+# TODO: DEBUG
package bsta_lib;
$ind =~ s/\.([0-9]+)$//;
$level -= 1;
$debug .= debug($printdebug, "[<]");
- if ($level >= 0) {
+ if ($level > 0) {
$goto_next = 'nd';
}
else {
{do{
$ind =~ s/\.([0-9]+)$//;
my $i = int($1) + 1;
- if ($i < $bbtree->{$ind.'.count'}){
+ if (($i < $bbtree->{$ind.'.count'}) and ($1 ne '')){
# goto next
$ind = $ind.'.'.$i;
last;