Mercurial > pub > Impl

diff Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents d1676be8afcc
children
line wrap: on
line diff
--- a/Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -7,20 +7,20 @@
 use IMPL::Class::Property;
 
 BEGIN {
-	public property pathinfoPrefix => prop_all;
+    public property pathinfoPrefix => prop_all;
 }
 
 sub Process {
-	my ($this,$query,$nextHandler) = @_;
-	
-	my $pathInfo = $ENV{PATH_INFO};
-	if (my $rx = $this->pathinfoPrefix) {
-		$pathInfo =~ s/^($rx)//;
-	}
-	
-	local $ENV{PATH_INFO} = $pathInfo;
-	
-	scalar $nextHandler->();
+    my ($this,$query,$nextHandler) = @_;
+    
+    my $pathInfo = $ENV{PATH_INFO};
+    if (my $rx = $this->pathinfoPrefix) {
+        $pathInfo =~ s/^($rx)//;
+    }
+    
+    local $ENV{PATH_INFO} = $pathInfo;
+    
+    scalar $nextHandler->();
 }
 
 1;