Ignore unimportant lines at the beginning of the log.

[blhc/blhc.git] / bin / blhc

diff --git a/bin/blhc b/bin/blhc
index 585df64686548a44b699b8a8abbd8221ef449ffb..880d24df4d2599f6cae394595bb1eafd6fce4665 100755 (executable)
--- a/bin/blhc
+++ b/bin/blhc
@@ -250,8 +250,14 @@ my $exit = 0;
 # Input lines, contain only the lines with compiler commands.
 my @input = ();
 
+my $start = 0;
 my $continuation = 0;
 while (my $line = <>) {
+    # We skip over unimportant lines at the beginning to prevent false
+    # positives.
+    $start = 1 if $line =~ /^dpkg-buildpackage:/;
+    next if not $start;
+
     # Ignore compiler warnings for now.
     next if $line =~ /$warning_regex/;