X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FTraitFor%2FRequest%2FProxyBase.pm;fp=lib%2FCatalyst%2FTraitFor%2FRequest%2FProxyBase.pm;h=80faefb4d294d8ebfbbdd5076844d69402a6b087;hb=9bdb832c5b825d09f362f45b244e2230be66b8a6;hp=cc9961d66cb1e60d9449a592f6676163ba914145;hpb=339e4a1a7552f6dfd4d24c9ed1c2d261f408989c;p=catagits%2FCatalyst-TraitFor-Request-ProxyBase.git

diff --git a/lib/Catalyst/TraitFor/Request/ProxyBase.pm b/lib/Catalyst/TraitFor/Request/ProxyBase.pm
index cc9961d..80faefb 100644
--- a/lib/Catalyst/TraitFor/Request/ProxyBase.pm
+++ b/lib/Catalyst/TraitFor/Request/ProxyBase.pm
@@ -3,7 +3,7 @@ use Moose::Role;
 use URI ();
 use namespace::autoclean;
 
-our $VERSION = '0.000001';
+our $VERSION = '0.000002';
 
 requires qw/
     base
@@ -12,11 +12,9 @@ requires qw/
 
 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);
 };