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-04 18:25:17 +0200 |
| commit | 2a030f24117ae9a1ad9559b7b47767c5b6559652 (patch) | |
| tree | 5ebcf95056be6e14a738e88468c3e63bcc6ed32f /Bugzilla/Quantum/CGI.pm | |
| parent | 2e9c9f5b9d1bff165a55dd7dbe54d81b2adbfde1 (diff) | |
| download | bugzilla-2a030f24117ae9a1ad9559b7b47767c5b6559652.tar.gz bugzilla-2a030f24117ae9a1ad9559b7b47767c5b6559652.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 ) { |