# HG changeset patch
# User wizard
# Date 1282086897 -14400
# Node ID b04e978d6d5ab4488c8daa05bcfe0f51a3e94783
# Parent  e6447ad85cb47ba050f47489855751773dc3433e
minor changes

diff -r e6447ad85cb4 -r b04e978d6d5a Lib/IMPL/Web/Application/Action.pm
--- a/Lib/IMPL/Web/Application/Action.pm	Mon Aug 16 08:26:44 2010 +0400
+++ b/Lib/IMPL/Web/Application/Action.pm	Wed Aug 18 03:14:57 2010 +0400
@@ -84,7 +84,7 @@
 sub cookie {
 	my ($this,$name,$rx) = @_;
 	
-	$this->_launder( $this->query->cookie($name), $rx );
+	$this->_launder(scalar( $this->query->cookie($name) ), $rx );
 }
 
 sub param {
@@ -99,7 +99,7 @@
 	if ( $value ) {
 		if ($rx) {
 			if ( my @result = ($value =~ m/$rx/) ) {
-				return @result > 1 ? \@result : \@result;
+				return @result > 1 ? \@result : $result[0];
 			} else {
 				return undef;
 			}