From f426064093c660ac39c5dd7ac36f96de08e91e11 Mon Sep 17 00:00:00 2001 From: Christophe Maudoux Date: Fri, 8 Jan 2021 20:50:01 +0100 Subject: [PATCH] Comment no strict refs pragma (#2436) --- .../lib/Lemonldap/NG/Portal/Plugins/CheckUser.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CheckUser.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CheckUser.pm index b39f6e440..0f9b5d2b6 100644 --- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CheckUser.pm +++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CheckUser.pm @@ -534,7 +534,8 @@ sub _headers { # Normalize headers name if required if ( $self->displayNormalizedHeadersRule->( $req, $savedUserData ) ) { $self->logger->debug("Normalize headers..."); - @$headers = map {; + @$headers = map { + ; # Prevent compilation error with old Perl versions no strict 'refs'; { key => &{ $self->p->HANDLER . '::cgiName' }( $_->{key} ),