Lines Matching refs:l

195 		my $l;
201 		    $l = $hunk_lines[$i];
202 		    if (!$done && $l eq "+\n") {
204 		    } elsif ($l =~ /^[ +]/) {
206 			unshift(@h, $l);
208 			unshift(@h, $l);
212 		$l = $hunk_lines[0];  # Hunk header
217 			($l =~ /^\@\@\s+\-([0-9]+),([0-9]+)\s+\+([0-9]+),([0-9]+)\s\@\@(.*)$/);
224 		    $l = sprintf("@@ -%d,%d +%d,%d @@%s\n",
228 		unshift(@h, $l);
231 		foreach $l (@h) {
232 		    $out_bytes += length($l);
233 		    push(@lines, $l);