diff options
author | Dylan William Hardison <dylan@hardison.net> | 2018-07-19 17:22:00 +0200 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2018-08-20 23:52:50 +0200 |
commit | 482953b67c0c348c4fc8df77609bb6aaf6ceb326 (patch) | |
tree | eb50b93a3d01a775ee673a216f659f968abf9ef7 /Bugzilla/Quantum/CGI.pm | |
parent | 4a66989c7cf4bcb1afce0c4e39a3f1c87ef0e57c (diff) | |
download | bugzilla-482953b67c0c348c4fc8df77609bb6aaf6ceb326.tar.gz bugzilla-482953b67c0c348c4fc8df77609bb6aaf6ceb326.tar.xz |
fix lint errors
Diffstat (limited to 'Bugzilla/Quantum/CGI.pm')
-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 ) { |