Lines Matching refs:leave
682 my $leave;
687 $leave = $l;
688 $leave =~ s,/$,,;
689 $leave =~ s,.*/,,;
690 $leave =~ s/[\(\)]//g;
699 if ($leave =~ m/\.\*/ || $leave eq "" || $leave =~ /\\d/) {
700 $leave = "others";
703 return $leave;
717 my $leave = get_leave($file);
718 if (!defined($leaf{$leave})) {
719 $leave = "others";
721 my @expr = @{$leaf{$leave}->{expr}};
722 die ("\rmissing rules for $leave") if (!defined($leaf{$leave}));
748 if ($leave ne "others") {
763 my $what = $leaf{$leave}->{what};
765 if ($leave ne "others") {
903 my $leave = get_leave($what);
906 foreach my $l (split /\|/, $leave) {