From: Darold Gilles <gilles@darold.net>
Date: Thu, 17 Jan 2013 18:44:05 +0000 (+0100)
Subject: Fix strange issue with Perl 5.16 that do not allow "ss"  inside look-behind assertion... 
X-Git-Tag: v3.2~61
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=1ba448305763d1e5e8cb80272babdffa5be73a68;p=pgbadger

Fix strange issue with Perl 5.16 that do not allow "ss"  inside look-behind assertions. Thanks to Cedric for the report.
---

diff --git a/pgbadger b/pgbadger
index ebdc58b..4a00d14 100755
--- a/pgbadger
+++ b/pgbadger
@@ -3908,11 +3908,11 @@ sub highlight_code
 	}
 
 	foreach my $x (keys %SYMBOLS) {
-		$code =~ s/$x/\$\$CLASSSY0A\$\$$SYMBOLS{$x}\$\$CLASSSY0B\$\$/gs;
+		$code =~ s/$x/\$\$STYLESY0A\$\$$SYMBOLS{$x}\$\$STYLESY0B\$\$/gs;
 	}
 	for (my $x = 0 ; $x <= $#KEYWORDS1 ; $x++) {
 		$code =~ s/\b$KEYWORDS1[$x]\b/<span class="kw1">$KEYWORDS1[$x]<\/span>/igs;
-		$code =~ s/(?<!CLASSSY0B\$\$)\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;
 	}
 	for (my $x = 0 ; $x <= $#KEYWORDS2 ; $x++) {
 		$code =~ s/(?<!:)\b$KEYWORDS2[$x]\b/<span class="kw2">$KEYWORDS2[$x]<\/span>/igs;
@@ -3924,7 +3924,7 @@ sub highlight_code
 		$code =~ s/($BRACKETS[$x])/<span class="br0">$1<\/span>/igs;
 	}
 
-	$code =~ s/\$\$CLASSSY0A\$\$([^\$]+)\$\$CLASSSY0B\$\$/<span class="sy0">$1<\/span>/gs;
+	$code =~ s/\$\$STYLESY0A\$\$([^\$]+)\$\$STYLESY0B\$\$/<span class="sy0">$1<\/span>/gs;
 
 	$code =~ s/\b(\d+)\b/<span class="nu0">$1<\/span>/igs;