diff options
author | Jozef Kutej <jozef@kutej.net> | 2008-12-01 23:45:33 +0100 |
---|---|---|
committer | Jozef Kutej <jozef@kutej.net> | 2008-12-01 23:45:33 +0100 |
commit | bc30ecf0065744dcf3702b428031995df619ed2c (patch) | |
tree | 8a7c5d862d8fb08dfd6ecf2c37bcc9f986b196de | |
parent | Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff) | |
download | Simple-OpenID-bc30ecf0065744dcf3702b428031995df619ed2c.tar.gz Simple-OpenID-bc30ecf0065744dcf3702b428031995df619ed2c.tar.bz2 Simple-OpenID-bc30ecf0065744dcf3702b428031995df619ed2c.zip |
bad bad
-rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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'}; |