From c50856a0807b118e27af890b1c53b93c81158459 Mon Sep 17 00:00:00 2001
From: Dominic Hargreaves <dom@earth.li>
Date: Mon, 19 Jun 2017 19:29:42 +0100
Subject: [PATCH] Fix "Unescaped left brace in regex" warning in perl 5.26

---
 share/html/Search/Elements/EditSort | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/html/Search/Elements/EditSort b/share/html/Search/Elements/EditSort
index 4ab08002f..4853e17f2 100644
--- a/share/html/Search/Elements/EditSort
+++ b/share/html/Search/Elements/EditSort
@@ -119,7 +119,7 @@ $fields{$_} = $_ for @cfs;
 # Add all available CustomRoles to the list of sortable columns.
 my @roles = grep /^CustomRole/, @{$ARGS{AvailableColumns}};
 for my $role (@roles) {
-    my ($label) = $role =~ /^CustomRole.{(.*)}$/;
+    my ($label) = $role =~ /^CustomRole.\{(.*)\}$/;
     my $value = $role;
     $fields{$label . '.EmailAddress' } = $value . '.EmailAddress';
 }
-- 
2.15.1