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