--- AnyEvent-HTTP/HTTP.pm	2011/01/28 01:17:25	1.99
+++ AnyEvent-HTTP/HTTP.pm	2011/01/28 01:28:03	1.100
@@ -715,7 +715,7 @@
    my $timeout = $arg{timeout} || $TIMEOUT;
 
    my ($uscheme, $uauthority, $upath, $query, undef) = # ignore fragment
-      $url =~ m|^([^:/?#]+):(?://([^/?#]*))?([^?#]*)(?:(\?[^#]*))?(?:#(.*))?$|;
+      $url =~ m|^([^:]+):(?://([^/?#]*))?([^?#]*)(?:(\?[^#]*))?(?:#(.*))?$|;
 
    $uscheme = lc $uscheme;