Support https couches

beppu · Jul 13, 2011 · a6f828f · a6f828f
1 parent 5521d02
commit a6f828f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/AnyEvent/CouchDB.pm b/lib/AnyEvent/CouchDB.pm
@@ -111,7 +111,7 @@ sub couch {
 
 sub couchdb {
   my $db = shift;
-  if ($db =~ /^http:/) {
+  if ($db =~ /^https?:/) {
     $db .= '/' if ($db !~ /\/$/);
     my $uri  = URI->new($db);
     my $name = basename($db);