Lines Matching full:leave
684 my $leave;
689 $leave = $l;
690 $leave =~ s,/$,,;
691 $leave =~ s,.*/,,;
692 $leave =~ s/[\(\)]//g;
694 # $leave is used to improve search performance at
697 # hint about a leave with the same name somewhere else.
698 # However, there are a few occurences where the leave is
701 if ($leave =~ m/\.\*/ || $leave eq "" || $leave =~ /\\d/) {
702 $leave = "others";
705 return $leave;
719 my $leave = get_leave($file);
720 if (!defined($leaf{$leave})) {
721 $leave = "others";
723 my @expr = @{$leaf{$leave}->{expr}};
724 die ("\rmissing rules for $leave") if (!defined($leaf{$leave}));
750 if ($leave ne "others") {
765 my $what = $leaf{$leave}->{what};
767 if ($leave ne "others") {
905 my $leave = get_leave($what);
908 foreach my $l (split /\|/, $leave) {