Comment no strict refs pragma (#2436)
This commit is contained in:
parent
f4ea214056
commit
f426064093
|
@ -534,7 +534,8 @@ sub _headers {
|
||||||
# Normalize headers name if required
|
# Normalize headers name if required
|
||||||
if ( $self->displayNormalizedHeadersRule->( $req, $savedUserData ) ) {
|
if ( $self->displayNormalizedHeadersRule->( $req, $savedUserData ) ) {
|
||||||
$self->logger->debug("Normalize headers...");
|
$self->logger->debug("Normalize headers...");
|
||||||
@$headers = map {;
|
@$headers = map {
|
||||||
|
; # Prevent compilation error with old Perl versions
|
||||||
no strict 'refs';
|
no strict 'refs';
|
||||||
{
|
{
|
||||||
key => &{ $self->p->HANDLER . '::cgiName' }( $_->{key} ),
|
key => &{ $self->p->HANDLER . '::cgiName' }( $_->{key} ),
|
||||||
|
|
Loading…
Reference in New Issue
Block a user