[Catalyst] uri rewrite (drop port)

[Armin Obersteiner]

hi!

thanks:

sub uri_for {
  my $c = shift;

  my $uri = $c->NEXT::uri_for(@_);
  $uri->port( undef );

  return $uri;
}

does the trick. removing the port completely.
 
Ciao,
	Armin
--
armin at xos.net                        pgp public key on request        CU