Lines Matching refs:extras
405 # $extras[$i] = '{Bug 505048}',
406 # $extras[$i + 1] = '-inline {\A\s*[^b]*b} ab'
407 # $extras[$i + 2] = 'ab'
409 my @extras = /\ntest\s+\S+\s*(\{.*?\})\s*\{\n # line 1
413 handle_doing "extra_" . $extra++, "checks for bug fixes" if @extras;
415 for (my $i = 0; $i < @extras; $i += 3) {
416 my $id = $extras[$i];
419 my ($opts, $args) = $extras[$i + 1] =~ /^\s*((?:-\S+\s+)*)([^\s-].*)/;
425 my $test = $opts =~ /-indices/ ? 'i' : $extras[$i + 2] ? 'm' : 'f';
426 my $results = $opts =~ /-inline/ && $test ne 'f' ? $extras[$i+2] : '';