Properly handle quoted flags

[blhc/blhc.git] / bin / blhc

diff --git a/bin/blhc b/bin/blhc
index 8606368f9f34e112582c4fe3a7a4ef02477b794d..2f8da5f2c4efdda473a2e3d414f98e65f3d796c8 100755 (executable)
--- a/bin/blhc
+++ b/bin/blhc
@@ -616,7 +616,7 @@ sub compile_flag_regexp {
     my @result = ();
     foreach my $flag (@flags) {
         # Compile flag regexp for faster execution.
-        my $regex = qr/\s$flag(?:\s|\\)/;
+        my $regex = qr/\s(['"]?)$flag\1(?:\s|\\)/;
 
         # Store flag name in replacement string for correct flags in messages
         # with qr//ed flag regexps.