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