Merge commit 'toms/master'
Eric Prestemon [Fri, 17 Jul 2009 03:09:42 +0000 (20:09 -0700)]
1  2 
lib/Catalyst/TraitFor/Request/ProxyBase.pm

@@@ -3,7 -3,7 +3,7 @@@ use Moose::Role
  use URI ();
  use namespace::autoclean;
  
- our $VERSION = '0.000001';
+ our $VERSION = '0.000002';
  
  requires qw/
      base
  
  around 'base' => sub {
      my ($orig, $self, @args) = @_;
-     if (scalar @args) {
-         if (my $base = $self->header('X-Request-Base')) {
-             $base .= '/' unless $base =~ m|/$|;
-             @args = (URI->new($base));
-         }
+     if (my $base = $self->header('X-Request-Base')) {
+         $base .= '/' unless $base =~ m|/$|;
+         @args = (URI->new($base));
      }
      $self->$orig(@args);
  };
@@@ -35,7 -33,7 +33,7 @@@ __END_
  
  =head1 NAME
  
 -Catalyst::TraitFor::Request::ProxyBase -
 +Catalyst::TraitFor::Request::ProxyBase - Replace request base with value passed by HTTP proxy
  
  =head1 SYNOPSIS