14 sub l ($) { confess unless l_ok $_[0]; };
16 our ($ifilehead, $ihunkhead, $ichunk);
17 our ($before, $after);
19 for ($ifilehead = 0; l_ok $ifilehead; $ifilehead++) {
21 while (l_ok $ifilehead and m{^index|^---|^\Q+++\E}) { }
22 $ihunkhead = $ifilehead;
23 while (l_ok $ihunkhead) {
25 $ichunk = $ihunkhead + 1;
29 while (l_ok $ichunk and
32 confess unless m{^\@\@};