Mercurial > pub > Impl

diff Lib/IMPL/Web/Application/ControllerUnit.pm @ 160:3f09584bf189

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corrected web application modules
author wizard
date Mon, 27 Dec 2010 19:41:36 +0300
parents e6447ad85cb4
children 4267a2ac3d46
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/ControllerUnit.pm	Mon Dec 27 01:37:44 2010 +0300
+++ b/Lib/IMPL/Web/Application/ControllerUnit.pm	Mon Dec 27 19:41:36 2010 +0300
@@ -211,7 +211,7 @@
 		my %methodInfo = (
 			name => $method
 		);
-		$methodInfo{parameters} = $info->{parameters} if $info->{parameters};
+		$methodInfo{parameters} = [ grep /^[^\:]/, @{ $info->{parameters} } ] if ref $info->{parameters} eq 'ARRAY';
 		push @{$smd{methods}},\%methodInfo; 
 	}
 	return \%smd;