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;
 	}
 }