diff options
author | Yorhel <git@yorhel.nl> | 2011-01-25 17:18:04 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-01-25 17:18:04 +0100 |
commit | befa63e4a110c3f6f31ec93bc049b915e15532ab (patch) | |
tree | 8fd29f9fa0920329b5f220b30a4a1828f23e15b1 /lib/TUWF/Request.pm | |
parent | c9ebc852014679dce9ecef8fdf0ad161abf2780f (diff) |
Fixed bug that caused cookie_prefix to be ignored with reqCookie()
Diffstat (limited to 'lib/TUWF/Request.pm')
-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 47cfca7..4121d0e 100644 --- a/lib/TUWF/Request.pm +++ b/lib/TUWF/Request.pm @@ -132,7 +132,7 @@ sub _parse_cookies { s/ +$//; next if !$_ || !m{^([^\(\)<>@,;:\\"/\[\]\?=\{\}\t\s]+)=("?)(.*)\2$}; my($n, $v) = ($1, $3); - next if $self->{_TUWF}{cookie_prefix} && !s/^\Q$self->{_TUWF}{cookie_prefix}\E//; + next if $self->{_TUWF}{cookie_prefix} && !($n =~ s/^\Q$self->{_TUWF}{cookie_prefix}\E//); $dat{$n} = $v if !exists $dat{$n}; } return \%dat; |