X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=bin%2Fblhc;h=9c3347c8eb9e510370562ae12401901655bffdf9;hb=73f360f993232da0522e658a2059ea020dab2842;hp=30bc35ae13278aad807e55ca360f1862e226fa34;hpb=7ed04bee58679b3e9e267b486ce796928b961639;p=blhc%2Fblhc.git diff --git a/bin/blhc b/bin/blhc index 30bc35a..9c3347c 100755 --- a/bin/blhc +++ b/bin/blhc @@ -224,7 +224,7 @@ while (my $line = <>) { } else { # Ignore lines with no compiler commands. - next if $line !~ /\b(cc\b|gcc\b|g\+\+|c\+\+)/; + next if $line !~ /\b(cc|gcc|g\+\+|c\+\+)(\s|\\)/; # Ignore false positives. # @@ -265,14 +265,25 @@ if ($bindnow) { } foreach my $line (@input) { + # Ignore false positives. + # + # ./configure summary. + next if $line =~ /^Compiler:\s+(cc|gcc|g\+\+|c\+\+)$/; + # Is this a compiler or linker command? my $compiler = 1; my $linker = 0; # Linker commands. - if ($line =~ /\s-l[A-Za-z0-9.-]+(\s|\\|$)/ + if ($line =~ m{\s-o\s+ # -o + (\\\s+)* # possible line continuation + ([A-Za-z0-9_/.-]+/)? # path to file + [A-Za-z0-9_-]+ # binary name (no dots!) + (\.so([0-9.])*|\.la)? # library (including version) + (\s|\\|\$) # end of file name + }x or $line =~ /^libtool: link: / - or $line =~ m{\s*/bin/bash .+?libtool\s+.+?\s+--mode=(re)?link}) { + or $line =~ m{\s*/bin/bash .+?libtool\s+(.+?\s+)?--mode=(re)?link}) { $compiler = 0; $linker = 1; }