u-boot/scripts/get_maintainer.pl

344 	    my $value = $2;
348 		$value =~ s@\.@\\\.@g;       ##Convert . to \.
349 		$value =~ s/\*/\.\*/g;       ##Convert * to .*
350 		$value =~ s/\?/\./g;         ##Convert ? to .
352 		if ((-d $value)) {
353 		    $value =~ s@([^/])$@$1/@;
356 		$keyword_hash{@typevalue} = $value;
358 	    push(@typevalue, "$type:$value");
645 		my $value = $2;
648 		    $status = $value;
670 	my $value = $2;
675 	    $value =~ s@\.@\\\.@g;       ##Convert . to \.
676 	    $value =~ s/\*/\.\*/g;       ##Convert * to .*
677 	    $value =~ s/\?/\./g;         ##Convert ? to .
679 	    if ((-d $value)) {
680 		$value =~ s@([^/])$@$1/@;
682 	    if (!grep(m@^$value@, @lsfiles)) {
688 		 $value =~ /^https?:/ &&
690 	    next if (grep(m@^\Q$value\E$@, @good_links));
692 	    if (grep(m@^\Q$value\E$@, @bad_links)) {
695 		my $output = `wget --spider -q --no-check-certificate --timeout 10 --tries 1 $value`;
697 		    push(@good_links, $value);
699 		    push(@bad_links, $value);
710 	    next if (grep(m@^\Q$value\E$@, @good_links));
712 	    if (grep(m@^\Q$value\E$@, @bad_links)) {
714             } elsif ($value !~ /^(?:git|quilt|hg)\s+\S/) {
716 	    } elsif ($value =~ /^git\s+(\S+)(\s+([^\(]+\S+))?/) {
722 		    push(@good_links, $value);
724 		    push(@bad_links, $value);
727 	    } elsif ($value =~ /^(?:quilt|hg)\s+(https?:\S+)/) {
731 		    push(@good_links, $value);
733 		    push(@bad_links, $value);
761 	    my $value = $2;
763 		if ($value =~ /(maintain|support)/i) {
779 	    my $value = $2;
828 		    my $value = $2;
830 			if (file_match_pattern($file, $value)) {
843 			my $value = $2;
845 			    if (file_match_pattern($file, $value)) {
846 				my $value_pd = ($value =~ tr@/@@);
848 				$value_pd++ if (substr($value,-1,1) ne "/");
849 				$value_pd = -1 if ($value =~ /^\.\*/);
861 			    if ($file =~ m/$value/x) {