-
- if (my $mm = $cur->mm) {
- my $tmp_mid = $mid;
- my $res = $mm->mid_prefixes($tmp_mid, 100);
- if ($res && scalar(@$res)) {
- $n_partial += scalar(@$res);
- push @partial, [ $cur, $res ];
- # fixup common errors:
- } elsif ($tmp_mid =~ s,/[tTf],,) {
- $res = $mm->mid_prefixes($tmp_mid, 100);
- if ($res && scalar(@$res)) {
- $n_partial += scalar(@$res);
- push @partial, [ $cur, $res ];
- }
- }
+ my $n_partial = 0;
+ my $srch = $cur->search;
+ my $mids = search_partial($srch, $mid) if $srch;
+ if ($mids) {
+ $n_partial = scalar(@$mids);
+ push @partial, [ $cur, $mids ];