blob: 27756f82c025ff701b8f189a26a271db2462989d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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
|
