[Bps-public-commit] SD branch, master, updated. 0.73-17-gdb3e5c9

[Kevin Falcone]

The branch, master has been updated
       via  db3e5c97b37142c5f6d6a6a52d4263a89d353663 (commit)
      from  47ea794bfa20efa5df16b3a6b367f2e2930ca867 (commit)

Summary of changes:
 lib/App/SD/Replica/rt.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit db3e5c97b37142c5f6d6a6a52d4263a89d353663
Author: Kevin Falcone <falcone at bestpractical.com>
Date:   Thu Oct 8 14:33:25 2009 -0400

    RT servers can run on https:// servers

diff --git a/lib/App/SD/Replica/rt.pm b/lib/App/SD/Replica/rt.pm
index ed87f79..4f5b21d 100644
--- a/lib/App/SD/Replica/rt.pm
+++ b/lib/App/SD/Replica/rt.pm
@@ -33,7 +33,7 @@ sub BUILD {
         die "RT::Client::REST is required to sync with RT foreign replicas.\n";
     }
 
-    my ( $server, $type, $query ) = $self->{url} =~ m{^rt:(http://.*?)\|(.*?)\|(.*)$}
+    my ( $server, $type, $query ) = $self->{url} =~ m{^rt:(https?://.*?)\|(.*?)\|(.*)$}
         or die "Can't parse RT server spec. Expected 'rt:http://example.com|QUEUE|QUERY'.\n"
                 ."Try: 'rt:http://example.com/|General|'.\n";
     my $uri = URI->new($server);

-----------------------------------------------------------------------