Fixed Catalyst::Utils::request

diff --git a/lib/Catalyst/Utils.pm b/lib/Catalyst/Utils.pm
index b3b75bb..3a0974b 100644 (file)
--- a/lib/Catalyst/Utils.pm
+++ b/lib/Catalyst/Utils.pm
@@ -197,7 +197,7 @@ Returns an L<HTTP::Request> object for a uri.
 sub request {
     my $request = shift;
     unless ( ref $request ) {
-        if ( $request =~ m/http/i ) {
+        if ( $request =~ m/^http/i ) {
             $request = URI->new($request)->canonical;
         }
         else {