blob: 290fd1f19039a4ee5514352e877693f4eb5d2277 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- lib/Net/OpenID/Consumer.pm.orig 2008-10-14 12:38:16.000000000 +0800
+++ lib/Net/OpenID/Consumer.pm 2008-11-11 15:20:06.000000000 +0800
@@ -255,7 +255,7 @@
# OpenID servers / delegated identities
# <link rel="openid.server" href="http://www.livejournal.com/misc/openid.bml" />
if ($type eq "link" &&
- $val =~ /\brel=.openid\.(server|delegate)./i && ($temp = $1) &&
+ $val =~ /\brel=[\"\'][^\"\']*\bopenid\.(server|delegate)\b/i && ($temp = $1) &&
$val =~ m!\bhref=[\"\']([^\"\']+)[\"\']!i) {
$ret->{"openid.$temp"} = $1;
next;
@@ -909,6 +909,7 @@
sub hmac {
my($data, $key, $hash_func, $block_size) = @_;
$block_size ||= 64;
+ $key = $key . ''; # stringify for charwise ^ to work
$key = &$hash_func($key) if length($key) > $block_size;
my $k_ipad = $key ^ (chr(0x36) x $block_size);
|
