From de0ffc327adf837d9daf7577421f9d50bf754077 Mon Sep 17 00:00:00 2001

Message-Id: <de0ffc327adf837d9daf7577421f9d50bf754077@dist-git>

From: =?UTF-8?q?J=C3=A1n=20Tomko?= <jtomko@redhat.com>

Date: Tue, 28 Jun 2016 15:23:58 +0200

Subject: [PATCH] hvsupport: skip non-matching lines early

Most of the lines we look at are not going to match one of the

driver types contained in $groups_regex.

Move on to the next line if it does not contain any of them early.

This speeds up the script execution by 50%, since this simple regex

does not have any capture groups.

(cherry picked from commit f1bbf57caddaddeea1141bfab9699a709aa303eb)

https://bugzilla.redhat.com/show_bug.cgi?id=1286679

Signed-off-by: Jiri Denemark <jdenemar@redhat.com>

---

 docs/hvsupport.pl | 3 +++

 1 file changed, 3 insertions(+)

diff --git a/docs/hvsupport.pl b/docs/hvsupport.pl

index fca83ca..2ead2cf 100755

--- a/docs/hvsupport.pl

+++ b/docs/hvsupport.pl

@@ -212,6 +212,9 @@ foreach my $src (@srcs) {

     my $impl;

     while (defined($line = <FILE>)) {

         if (!$ingrp) {

+            # skip non-matching lines early to save time

+            next if not $line =~ /$groups_regex/;

+

             if ($line =~ /^\s*(?:static\s+)?($groups_regex)\s+(\w+)\s*=\s*{/ ||

                 $line =~ /^\s*(?:static\s+)?($groups_regex)\s+NAME\(\w+\)\s*=\s*{/) {

                 $ingrp = $1;

-- 

2.9.2