Lines Matching refs:str
144 my $str = shift;
146 $str = lc ($str);
147 if ($str =~ /(licen[cs]|legal|terms|condition|copyright|rights|\(c\)|copying|distribut|gpl|gnu|source code|software|permission|authori)/) {
407 foreach my $str (@list) {
408 next if $str eq $prev;
409 push (@uniq_list, $str);
410 $prev = $str;
415 # return the number of lines in str
417 my $str = shift;
419 return ($str =~ tr/\n//) + 1;
422 # return 1 if str is a member of the list, 0 otherwise
424 my $str = shift;
428 if ($str eq $s) {