When using negative look behind set the sub-regexp to -i (not case insensitive) to...

diff --git a/pgbadger b/pgbadger
index e6f8f330762745294b99bcedf7d90beb016f9638..7949b015c96dca3afa470ff57f10e74a16cdf65f 100755 (executable)
--- a/pgbadger
+++ b/pgbadger
@@ -5076,7 +5076,7 @@ sub highlight_code
        }
        for (my $x = 0 ; $x <= $#KEYWORDS1 ; $x++) {
                $code =~ s/\b$KEYWORDS1[$x]\b/<span class="kw1">$KEYWORDS1[$x]<\/span>/igs;
-               $code =~ s/(?<!STYLESY0B\$\$)\b$KEYWORDS1[$x]\b/<span class="kw1">$KEYWORDS1[$x]<\/span>/igs;
+               $code =~ s/(?<!(?-i)STYLESY0B\$\$)\b$KEYWORDS1[$x]\b/<span class="kw1">$KEYWORDS1[$x]<\/span>/igs;
        }
        for (my $x = 0 ; $x <= $#KEYWORDS2 ; $x++) {
                $code =~ s/(?<!:)\b$KEYWORDS2[$x]\b/<span class="kw2">$KEYWORDS2[$x]<\/span>/igs;