From: Marcus Ramberg <marcus@nordaaker.com>
Date: Mon, 13 Nov 2006 13:19:46 +0000 (+0000)
Subject: reduce cost by cloning URI objects
X-Git-Tag: 5.7099_04~275
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d29e3de1b9368d2a2e78edd0f8ad0f82fad6976;hp=ace55b0721e7026a837606c5ce14f1f8782dc3a8;p=catagits%2FCatalyst-Runtime.git

reduce cost by cloning URI objects
---

diff --git a/lib/Catalyst/Engine/CGI.pm b/lib/Catalyst/Engine/CGI.pm
index 17e4eed..eefe701 100644
--- a/lib/Catalyst/Engine/CGI.pm
+++ b/lib/Catalyst/Engine/CGI.pm
@@ -5,6 +5,7 @@ use base 'Catalyst::Engine';
 use NEXT;
 use URI;
 
+my $uri_proto=URI->new();
 __PACKAGE__->mk_accessors('env');
 
 =head1 NAME
@@ -140,7 +141,7 @@ sub prepare_path {
     my $path = $base_path . ( $ENV{PATH_INFO} || '' );
     $path =~ s{^/+}{};
 
-    my $uri = URI->new;
+    my $uri = $uri_proto->clone;
     $uri->scheme($scheme);
     $uri->host($host);
     $uri->port($port);