replace regexp with simpler, faster version

This commit is contained in:
Colin Kuskie 2005-01-01 06:59:43 +00:00
parent 1371377874
commit a34cf02867

View file

@ -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;
}