diff options
author | Dylan William Hardison <dylan@hardison.net> | 2018-07-19 17:22:00 +0200 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2018-07-31 18:57:16 +0200 |
commit | 5cf8f186b1f2dbda01cd63a0feb12ea0bdfa02af (patch) | |
tree | b4e03c4d4462a18e887d3bc5cb5941d3092aa670 /Bugzilla | |
parent | 6df945da5900da86203e0527816690cb1d52c574 (diff) | |
download | bugzilla-5cf8f186b1f2dbda01cd63a0feb12ea0bdfa02af.tar.gz bugzilla-5cf8f186b1f2dbda01cd63a0feb12ea0bdfa02af.tar.xz |
fix lint errors
Diffstat (limited to 'Bugzilla')
-rw-r--r-- | Bugzilla/Quantum/CGI.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Bugzilla/Quantum/CGI.pm b/Bugzilla/Quantum/CGI.pm index 85f14cf83..0e09d795e 100644 --- a/Bugzilla/Quantum/CGI.pm +++ b/Bugzilla/Quantum/CGI.pm @@ -90,12 +90,12 @@ sub _ENV { for my $name ( @{ $headers->names } ) { my $key = uc "http_$name"; - $key =~ s!\W!_!g; + $key =~ s/\W/_/g; $env_headers{$key} = $headers->header($name); } my $remote_user; - if ( my $userinfo = $c->req->url->to_abs->userinfo ) { + if ( my $userinfo = $req->url->to_abs->userinfo ) { $remote_user = $userinfo =~ /([^:]+)/ ? $1 : ''; } elsif ( my $authenticate = $headers->authorization ) { |