From a34cf0286713e8fd58ebc57b357f4f56ed2df822 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 1 Jan 2005 06:59:43 +0000
Subject: [PATCH] replace regexp with simpler, faster version

---
 lib/WebGUI/Macro/PageUrl.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Macro/PageUrl.pm b/lib/WebGUI/Macro/PageUrl.pm
index f30d8ef56..a7827b425 100644
--- a/lib/WebGUI/Macro/PageUrl.pm
+++ b/lib/WebGUI/Macro/PageUrl.pm
@@ -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;
 }