mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-08-06 05:47:13 +02:00
73ef5a9de1
Fix #8739 by cherry-picking upstream 971daa20c This patch should be removed on the next rt4 release This patch should be applied after issue #8738 patch.
26 lines
935 B
Diff
26 lines
935 B
Diff
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
|
|
|