From bc30ecf0065744dcf3702b428031995df619ed2c Mon Sep 17 00:00:00 2001
From: Jozef Kutej <jozef@kutej.net>
Date: Mon, 1 Dec 2008 23:45:33 +0100
Subject: bad bad

---
 lib/PAUSE/OpenID/Controller/Root.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm
index 05135e5..221955f 100644
--- a/lib/PAUSE/OpenID/Controller/Root.pm
+++ b/lib/PAUSE/OpenID/Controller/Root.pm
@@ -77,6 +77,7 @@ sub login :Local {
     $ua->credentials('pause.perl.org:443', 'PAUSE', $username, $password);
     my $res = $ua->request($req);
     
+    # but this is bad as the certificate is checked AFTER the credentials are send :-(
     die 'pause server certificate validation failed'
         if exists $res->headers->{'client-ssl-warning'};
     
-- 
cgit v1.2.3