No strict refs (#2436)

This commit is contained in:
Christophe Maudoux 2021-01-08 20:09:00 +01:00
parent b5b311e8b5
commit 7ebca3633c

View File

@ -1,6 +1,7 @@
package Lemonldap::NG::Portal::Plugins::CheckUser; package Lemonldap::NG::Portal::Plugins::CheckUser;
use strict; use strict;
no strict 'refs';
use Mouse; use Mouse;
use Lemonldap::NG::Portal::Main::Constants qw( use Lemonldap::NG::Portal::Main::Constants qw(
PE_NOTOKEN PE_NOTOKEN
@ -535,7 +536,6 @@ sub _headers {
if ( $self->displayNormalizedHeadersRule->( $req, $savedUserData ) ) { if ( $self->displayNormalizedHeadersRule->( $req, $savedUserData ) ) {
$self->logger->debug("Normalize headers..."); $self->logger->debug("Normalize headers...");
@$headers = map { @$headers = map {
no strict 'refs';
{ {
key => &{ $self->p->HANDLER . '::cgiName' }( $_->{key} ), key => &{ $self->p->HANDLER . '::cgiName' }( $_->{key} ),
value => $_->{value} value => $_->{value}