Think I found a bug?

While trying to figure out something else, I think I found a bug in the code. Best I can figure, it is only a bug for newer versions of Perl. I clicked on the “Edit” link in the upper-right corner of the “10 newest unowned tickets” block on the “RT at a glance” page. I was presented with this error text:

An internal RT error has occurred. Your administrator can find more details in RT’s log files.

This happens no matter which box’s “Edit” link I click. When I click on that link, my /var/log/rt.log file shows the following lines:

[14282] [Mon Jul 16 16:53:48 2018] [error]: Error during compilation of /usr/local/share/rt44/html/Search/Elements/EditSort:
Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.30), passed through in regex; marked by <-- HERE in m/^CustomRole.{ <-- HERE (.*)}$/ at /usr/local/share/rt44/html/Search/Elements/EditSort line 122.

Stack:
[/usr/local/lib/perl5/site_perl/HTML/Mason/Interp.pm:450]
[/usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm:1127]
[/usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm:1060]
[/usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm:1239]
[/usr/local/share/rt44/html/Search/Elements/DisplayOptions:49]
[/usr/local/share/rt44/html/Widgets/TitleBox:61]
[/usr/local/share/rt44/html/Search/Elements/DisplayOptions:50]
[/usr/local/share/rt44/html/Prefs/Search.html:65]
[/usr/local/lib/perl5/site_perl/RT/Interface/Web.pm:696]
[/usr/local/lib/perl5/site_perl/RT/Interface/Web.pm:375]
[/usr/local/share/rt44/html/autohandler:53] (/usr/local/lib/perl5/site_perl/RT/Interface/Web/Handler.pm:208)

In case you need it, here is my Perl environment:

perl -V

Summary of my perl5 (revision 5 version 26 subversion 2) configuration:

Platform:
osname=freebsd
osvers=11.2-release
archname=amd64-freebsd-thread-multi
uname=‘freebsd its1.cairodurham.org 11.2-release freebsd 11.2-release #0 r335510: fri jun 22 04:32:14 utc 2018 root@releng2.nyi.freebsd.org:usrobjusrsrcsysgeneric amd64 ’
config_args=’-sde -Dprefix=/usr/local -Dlibperl=libperl.so.5.26.2 -Darchlib=/usr/local/lib/perl5/5.26/mach -Dprivlib=/usr/local/lib/perl5/5.26 -Dman3dir=/usr/local/lib/perl5/5.26/perl/man/man3 -Dman1dir=/usr/local/lib/perl5/5.26/perl/man/man1 -Dsitearch=/usr/local/lib/perl5/site_perl/mach/5.26 -Dsitelib=/usr/local/lib/perl5/site_perl -Dscriptdir=/usr/local/bin -Dsiteman3dir=/usr/local/lib/perl5/site_perl/man/man3 -Dsiteman1dir=/usr/local/lib/perl5/site_perl/man/man1 -Ui_malloc -Ui_iconv -Uinstallusrbinperl -Dusenm=n -Dcc=cc -Duseshrplib -Dinc_version_list=none -Dcf_by=mat -Dcf_email=mat@FreeBSD.org -Dcf_time=Sat Apr 14 07:27:49 EDT 2018 -Alddlflags=-L/usr/ports/lang/perl5.26/work/perl-5.26.2 -L/usr/local/lib/perl5/5.26/mach/CORE -lperl -Dshrpldflags=$(LDDLFLAGS:N-L/usr/ports/lang/perl5.26/work/perl-5.26.2:N-L/usr/local/lib/perl5/5.26/mach/CORE:N-lperl) -Wl,-soname,$(LIBPERL:R) -Doptimize=-O2 -pipe -fstack-protector -fno-strict-aliasing -Dusedtrace -Ui_gdbm -Dusemultiplicity=y -Duse64bitint -Dusemymalloc=n -Dusethreads=y’
hint=recommended
useposix=true
d_sigaction=define
useithreads=define
usemultiplicity=define
use64bitint=define
use64bitall=define
uselongdouble=undef
usemymalloc=n
default_inc_excludes_dot=define
bincompat5005=undef
Compiler:
cc=‘cc’
ccflags =’-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_FORTIFY_SOURCE=2’
optimize=’-O2 -pipe -fstack-protector -fno-strict-aliasing’
cppflags=’-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include’
ccversion=’’
gccversion=‘4.2.1 Compatible FreeBSD Clang 6.0.0 (tags/RELEASE_600/final 326565)’
gccosandvers=’’
intsize=4
longsize=8
ptrsize=8
doublesize=8
byteorder=12345678
doublekind=3
d_longlong=define
longlongsize=8
d_longdbl=define
longdblsize=16
longdblkind=3
ivtype=‘long’
ivsize=8
nvtype=‘double’
nvsize=8
Off_t=‘off_t’
lseeksize=8
alignbytes=8
prototype=define
Linker and Libraries:
ld=‘cc’
ldflags =’-pthread -Wl,-E -fstack-protector-strong -L/usr/local/lib’
libpth=/usr/lib /usr/local/lib /usr/lib/clang/6.0.0/lib /usr/lib
libs=-lpthread -lgdbm -lm -lcrypt -lutil
perllibs=-lpthread -lm -lcrypt -lutil
libc=
so=so
useshrplib=true
libperl=libperl.so.5.26.2
gnulibc_version=’’
Dynamic Linking:
dlsrc=dl_dlopen.xs
dlext=so
d_dlsymun=undef
ccdlflags=’ -Wl,-R/usr/local/lib/perl5/5.26/mach/CORE’
cccdlflags=’-DPIC -fPIC’
lddlflags=’-shared -L/usr/local/lib/perl5/5.26/mach/CORE -lperl -L/usr/local/lib -fstack-protector-strong’

Characteristics of this binary (from libperl):
Compile-time options:
HAS_TIMES
MULTIPLICITY
PERLIO_LAYERS
PERL_COPY_ON_WRITE
PERL_DONT_CREATE_GVSV
PERL_IMPLICIT_CONTEXT
PERL_MALLOC_WRAP
PERL_OP_PARENT
PERL_PRESERVE_IVUV
USE_64_BIT_ALL
USE_64_BIT_INT
USE_ITHREADS
USE_LARGE_FILES
USE_LOCALE
USE_LOCALE_COLLATE
USE_LOCALE_CTYPE
USE_LOCALE_NUMERIC
USE_LOCALE_TIME
USE_PERLIO
USE_PERL_ATOF
USE_REENTRANT_API
Built under freebsd
@INC:
/usr/local/lib/perl5/site_perl/mach/5.26
/usr/local/lib/perl5/site_perl
/usr/local/lib/perl5/5.26/mach
/usr/local/lib/perl5/5.26

Yep, looks like line 122 in EditSort should be:

my ($label) = $role =~ /^CustomRole.\{(.*)\}$/;

How can I let the developers know?