replace regexp with simpler, faster version
This commit is contained in:
parent
1371377874
commit
a34cf02867
1 changed files with 1 additions and 1 deletions
|
|
@ -17,7 +17,7 @@ use WebGUI::URL;
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
sub process {
|
sub process {
|
||||||
my $pathinfo = $session{env}{PATH_INFO};
|
my $pathinfo = $session{env}{PATH_INFO};
|
||||||
$pathinfo =~ s/^\/(.*)/$1/;
|
$pathinfo =~ s#^/##;
|
||||||
return WebGUI::URL::getScriptURL().$pathinfo;
|
return WebGUI::URL::getScriptURL().$pathinfo;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue