--- AnyEvent-HTTP/HTTP.pm	2008/07/24 06:01:10	1.27
+++ AnyEvent-HTTP/HTTP.pm	2008/09/29 13:50:39	1.28
@@ -50,7 +50,7 @@
 
 use base Exporter::;
 
-our $VERSION = '1.04';
+our $VERSION = '1.05';
 
 our @EXPORT = qw(http_get http_post http_head http_request);
 
@@ -400,7 +400,7 @@
                         my $cdom  = (delete $kv{domain}) || $uhost;
                         my $cpath = (delete $kv{path})   || "/";
     
-                        $cdom =~ s/^.?/./; # make sure it starts with a "."
+                        $cdom =~ s/^\.?/./; # make sure it starts with a "."
 
                         next if $cdom =~ /\.$/;