comparison Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 137:6975cd4973d1

minor fix
author wizard
date Tue, 29 Jun 2010 00:37:05 +0400
parents f6af119ac741
children fb896377389f
comparison
equal deleted inserted replaced
136:f6af119ac741 137:6975cd4973d1
44 44
45 if ( $requestUri eq $ENV{SCRIPT_NAME}.$ENV{PATH_INFO} ) { 45 if ( $requestUri eq $ENV{SCRIPT_NAME}.$ENV{PATH_INFO} ) {
46 # CGI with path info 46 # CGI with path info
47 $pathInfo = $ENV{PATH_INFO}; 47 $pathInfo = $ENV{PATH_INFO};
48 } else { 48 } else {
49 die "REQUEST_URI: $ENV{REQUEST_URI}\nPATH_INFO: $ENV{PATH_INFO}" unless $ENV{REQUEST_URI} eq $ENV{PATH_INFO}; 49 die "REQUEST_URI: $requestUri\nPATH_INFO: $ENV{PATH_INFO}" unless $requestUri eq $ENV{PATH_INFO};
50 } 50 }
51 51
52 my @root = (''); 52 my @root = ('');
53 my @base; 53 my @base;
54 54