From 29a6f784f5c651b6716c597088b0619886e2d46b Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Tue, 12 Oct 2021 13:53:01 +0200
Subject: [PATCH] wwww: Fix escape_like() to also escape backslash

---
 www/index.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/www/index.pl b/www/index.pl
index 6bd5df9..01bfd5b 100755
--- a/www/index.pl
+++ b/www/index.pl
@@ -76,7 +76,7 @@ sub normalize_name { $_[0] =~ s/%5b/[/irg =~ s/%5d/]/irg =~ s/%20/ /rg }
 # Subquery returning all packages that have a man page.
 my $packages_with_man = '(SELECT * FROM packages p WHERE EXISTS(SELECT 1 FROM package_versions pv WHERE pv.package = p.id AND EXISTS(SELECT 1 FROM man m WHERE m.package = pv.id)))';
 
-sub escape_like { $_[0] =~ s/([_%])/\\$1/rg }
+sub escape_like { $_[0] =~ s/([_%\\])/\\$1/rg }
 
 sub sql_join {
     my $sep = shift;