On Sat, Mar 29, 2008 at 11:27:39PM -0700, Ashley wrote:
>
> sub uri_for {
> my $self = shift;
> my $uri = $self->NEXT::uri_for(@_);
> my $program_name = $self->config->{application_executable};
> $uri =~ s,/\Q$program_name\E(?=/|\z),,;
> return ref($uri) ? $uri : URI->new($uri);
> }
Wouldn't it be better to alter $c->req->base just once per request?
--
Bill Moseley
[EMAIL PROTECTED]
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
