Lines Matching refs:possible

1580 sub possible {  subroutine
1581 	my ($possible, $line) = @_;
1601 	warn "CHECK<$possible> ($line)\n" if ($dbg_possible > 2);
1602 	if ($possible !~ $notPermitted) {
1604 		$possible =~ s/\s*$Storage\s*//g;
1605 		$possible =~ s/\s*$Sparse\s*//g;
1606 		if ($possible =~ /^\s*$/) {
1608 		} elsif ($possible =~ /\s/) {
1609 			$possible =~ s/\s*$Type\s*//g;
1610 			for my $modifier (split(' ', $possible)) {
1612 					warn "MODIFIER: $modifier ($possible) ($line)\n" if ($dbg_possible);
1618 			warn "POSSIBLE: $possible ($line)\n" if ($dbg_possible);
1619 			push(@typeList, $possible);
1623 		warn "NOTPOSS: $possible ($line)\n" if ($dbg_possible > 1);
2841 				possible($type, "A:" . $s);
2845 				possible($1, "B:" . $s);
2850 				possible($1, "C:" . $s);
2866 						possible($1, "D:" . $s);