Changeset 17475

Timestamp:

08/12/08 11:24:37 (5 years ago)

Author:

yappo

Message:

oops

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Types/Core.pm (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Types/Core.pm

@@ -35 +35 @@
     my $uri = URI->new($_);
     my $base = $uri->path;
+    $base =~ s{^/+}{};
+    $uri->path($base);
     $base .= '/' unless $base =~ /\/$/;
     $uri->query(undef);