diff options
| author | Yorhel <git@yorhel.nl> | 2015-09-20 20:41:39 +0200 |
|---|---|---|
| committer | Yorhel <git@yorhel.nl> | 2015-09-20 20:41:39 +0200 |
| commit | 3d38e33ee776da244edb2cdd2ea4b4af89e1119c (patch) | |
| tree | 4b630226d089744248ad38243bb17444b5743c7e | |
| parent | 6a694f158d833c58125d383577fce48c9f55b3cf (diff) | |
TUWF::Request: Fix arg length check in reqHeader()
| -rw-r--r-- | lib/TUWF/Request.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/TUWF/Request.pm b/lib/TUWF/Request.pm index 8806451..f61a852 100644 --- a/lib/TUWF/Request.pm +++ b/lib/TUWF/Request.pm @@ -236,7 +236,7 @@ sub reqMethod { # case-insensitive sub reqHeader { my($self, $name) = @_; - if(@_ == 1) { + if(@_ == 2) { (my $v = uc $_[1]) =~ tr/-/_/; return $ENV{"HTTP_$v"}||''; } else { |