Mercurial > pub > Impl
diff Lib/IMPL/Web/Application.pm @ 129:e4f15cbc3f1a
Fixed utf-8 problem
author | wizard |
---|---|
date | Tue, 15 Jun 2010 20:12:58 +0400 |
parents | 6dd659f6f66c |
children | 06a34c197b05 |
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application.pm Tue Jun 15 02:41:07 2010 +0400 +++ b/Lib/IMPL/Web/Application.pm Tue Jun 15 20:12:58 2010 +0400 @@ -52,7 +52,7 @@ }; if ($@) { my $e = $@; - # we are expect that this method is safe otherwise we can trust nothing in this wolrd + # we are expecting this method to be safe otherwise we can trust nothing in this wolrd $this->handlerError()->($this,$action,$e); } } @@ -72,9 +72,12 @@ my $hasFetched = 0; sub defaultFetchRequest { + my ($this) = @_; return undef if $hasFetched; $hasFetched = 1; - return CGI->new(); + my $query = CGI->new(); + $query->charset($this->responseCharset); + return $query; } }