Lines Matching refs:l

118     my $l;
125         my $l = $_;
129         if(!$copyright && ($l =~ /copyright .* \d\d\d\d/i)) {
134         if(length($l) > $max_column) {
135             checkwarn($line, length($l), $file, $l, "Longer than $max_column columns");
138         if($l =~ /^(.*)\t/) {
139             checkwarn($line, length($1), $file, $l, "Contains TAB character", 1);
142         if($l =~ /^(.*)[ \t]+\z/) {
143             checkwarn($line, length($1), $file, $l, "Trailing whitespace");
147         if($l =~ /^(.*)(for|if|while) \(/) {
152                 checkwarn($line, length($1)+length($2), $file, $l,
158         if($l =~ /^(.*)(for|if|while)\( /) {
163                 checkwarn($line, length($1)+length($2)+1, $file, $l,
169         if($l =~ /^(.*)return\(/) {
174                 checkwarn($line, length($1)+6, $file, $l,
180         if($l =~ /^(.*),[^ \n]/) {
206                 checkwarn($line, length($pref)+1, $file, $l,
212         if($l =~ /^(.*)\} *else/) {
213             checkwarn($line, length($1), $file, $l, "else after closing brace on same line");
216         if($l =~ /^(.*)\)\{/) {
217             checkwarn($line, length($1)+1, $file, $l, "missing space after close paren");
221         if($l =~ /^(.*[^ ].*) ;$/) {
222             checkwarn($line, length($1), $file, $l, "space before last semicolon");
226         if($l =~ /^(.*\W)(sprintf|vsprintf|strcat|strncat|gets)\s*\(/) {
227             checkwarn($line, length($1), $file, $l,
232         if($l =~ /^(.*\W)fopen\s*\([^"]*\"([^"]*)/) {
235                 checkwarn($line, length($1), $file, $l,
243         if((($prevl =~ /\)\z/) && ($prevl !~ /^ *#/)) && ($l =~ /^( +)\{/)) {
244             checkwarn($line, length($1), $file, $l, "badly placed open brace");
254             if(($l !~ /^ *#/) && ($l =~ /^( *)[^ ]/)) {
259                     checkwarn($line, length($1), $file, $l,
267         $prevl = $l;