commit 971daa20cf2e05d3829217e868acae034296a912 Author: Dominic Hargreaves Date: Mon Jun 19 19:29:42 2017 +0100 Fix "Unescaped left brace in regex" warning in perl 5.26 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'; }