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 {
|
||||
my $pathinfo = $session{env}{PATH_INFO};
|
||||
$pathinfo =~ s/^\/(.*)/$1/;
|
||||
$pathinfo =~ s#^/##;
|
||||
return WebGUI::URL::getScriptURL().$pathinfo;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue