- rel 2; fix perl 5.26 warning which rt treats as error

[packages/rt.git] / rt-perl.patch

diff --git a/rt-perl.patch b/rt-perl.patch
new file mode 100644 (file)
index 0000000..619c9a7
--- /dev/null
+++ b/rt-perl.patch
@@ -0,0 +1,19 @@
+commit 971daa20cf2e05d3829217e868acae034296a912
+Author: Dominic Hargreaves <dom@earth.li>
+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';
+ }