Comment no strict refs pragma (#2436)

2021-01-08 20:50:01 +01:00 · 2021-01-08 20:50:01 +01:00 · f426064093
commit f426064093
parent f4ea214056
1 changed files with 2 additions and 1 deletions
--- 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} ),