Lines Matching refs:l
193 my $l;
199 $l = $hunk_lines[$i];
200 if (!$done && $l eq "+\n") {
202 } elsif ($l =~ /^[ +]/) {
204 unshift(@h, $l);
206 unshift(@h, $l);
210 $l = $hunk_lines[0]; # Hunk header
215 ($l =~ /^\@\@\s+\-([0-9]+),([0-9]+)\s+\+([0-9]+),([0-9]+)\s\@\@(.*)$/);
222 $l = sprintf("@@ -%d,%d +%d,%d @@%s\n",
226 unshift(@h, $l);
229 foreach $l (@h) {
230 $out_bytes += length($l);
231 push(@lines, $l);