Re: [Catalyst] RFC for plugin to strip script name from URI; plugin name + code review

[Ashley]

On Mar 30, 2008, at 5:47 AM, Bill Moseley wrote:

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?

Der… yes, that sounds much better. Thanks.

-Ashley
_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/