Lines Matching refs:pairs
1125 my @pairs;1127 push(@pairs, $line_nums[$i] - $context); # lower marker1132 push(@pairs, $line_nums[$i] + $context); # upper marker1136 $pairs[0] = 1 if ($pairs[0] < 1);1137 while (@pairs) {1138 my $low = shift @pairs;1139 my $high = shift @pairs;