Lines Matching refs:leave
683 my $leave;
688 $leave = $l;
689 $leave =~ s,/$,,;
690 $leave =~ s,.*/,,;
691 $leave =~ s/[\(\)]//g;
700 if ($leave =~ m/\.\*/ || $leave eq "" || $leave =~ /\\d/) {
701 $leave = "others";
704 return $leave;
718 my $leave = get_leave($file);
719 if (!defined($leaf{$leave})) {
720 $leave = "others";
722 my @expr = @{$leaf{$leave}->{expr}};
723 die ("\rmissing rules for $leave") if (!defined($leaf{$leave}));
749 if ($leave ne "others") {
764 my $what = $leaf{$leave}->{what};
766 if ($leave ne "others") {
904 my $leave = get_leave($what);
907 foreach my $l (split /\|/, $leave) {