From a943deb4b8054f6c440bdfdf993dc834308c4521 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Fri, 12 Aug 2011 13:05:45 +0200
Subject: Work around a new in-place-decoding "feature" of Encode.pm

As explained in
http://www.nntp.perl.org/group/perl.unicode/2004/12/msg2758.html
---
 lib/TUWF/Request.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/TUWF/Request.pm b/lib/TUWF/Request.pm
index 74b1ae2..8caee9b 100644
--- a/lib/TUWF/Request.pm
+++ b/lib/TUWF/Request.pm
@@ -61,7 +61,8 @@ sub reqInit {
 
 sub _parse_urlencoded {
   my %dat;
-  for (split /[;&]/, decode_utf8 shift, 1) {
+  my $d = shift;
+  for (split /[;&]/, decode_utf8 $d, 1) {
     my($key, $val) = split /=/, $_, 2;
     next if !defined $key or !defined $val;
     for ($key, $val) {
@@ -269,7 +270,8 @@ sub reqBaseURI {
 
 sub reqURI {
   my $s = shift;
-  return $s->reqBaseURI().'/'.$s->reqPath().decode_utf8($ENV{QUERY_STRING} ? '?'.$ENV{QUERY_STRING} : '', 1);
+  my $u = $ENV{QUERY_STRING} ? '?'.$ENV{QUERY_STRING} : '';
+  return $s->reqBaseURI().'/'.$s->reqPath().decode_utf8($u, 1);
 }
 
 
-- 
cgit v1.2.3