- my @wout = get(substr($sp, 0, $i));
- last if @wout > 0 && $wout[0] gt $sp;
+ my $ssp = substr($sp, 0, $i);
+ my @wout = get($ssp);
+ if (isdbg('prefix')) {
+ my $part = $wout[0] || "*";
+ dbg("Partial prefix: $sp $ssp $part" );
+ }
+ next if @wout > 0 && $wout[0] gt $ssp;