Add patches to net/p5-Net-OpenID-Consumer

[Alex Kapranoff]

>Submitter-Id:	current-users
>Originator:	Alex Kapranoff
>Organization:	Rambler
>Confidential:	no 
>Synopsis:	Add patches to net/p5-Net-OpenID-Consumer
>Severity:	non-critical
>Priority:	high
>Category:	ports
>Class:		sw-bug
>Release:	FreeBSD 5.2-CURRENT i386
>Environment:
FreeBSD capella.park.rambler.ru 6.1-PRERELEASE FreeBSD 6.1-PRERELEASE #0: Fri Mar 17 16:20:26 MSK 2006     root at capella.park.rambler.ru:/usr/obj/usr/src/sys/CAPELLA2  i386

	
>Description:
	
>How-To-Repeat:
	
>Fix:

	

Fixes several issues in Net::OpenID::Consumer. CPAN maintainer and
author Brad Fitzpatrick seems to ignore all emails.

diff -ruN --exclude=CVS /usr/ports/net/p5-Net-OpenID-Consumer/Makefile /usr/home/kappa/work/ports/p5-Net-OpenID-Consumer/Makefile
--- /usr/ports/net/p5-Net-OpenID-Consumer/Makefile	2007-08-22 07:47:43.000000000 +0400
+++ /usr/home/kappa/work/ports/p5-Net-OpenID-Consumer/Makefile	2008-06-04 19:34:49.000000000 +0400
@@ -7,6 +7,7 @@
 
 PORTNAME=	Net-OpenID-Consumer
 PORTVERSION=	0.14
+PORTREVISION=	1
 CATEGORIES=	net security perl5
 MASTER_SITES=	CPAN
 MASTER_SITE_SUBDIR=	Net
diff -ruN --exclude=CVS /usr/ports/net/p5-Net-OpenID-Consumer/files/patch-Consumer.pm /usr/home/kappa/work/ports/p5-Net-OpenID-Consumer/files/patch-Consumer.pm
--- /usr/ports/net/p5-Net-OpenID-Consumer/files/patch-Consumer.pm	1970-01-01 03:00:00.000000000 +0300
+++ /usr/home/kappa/work/ports/p5-Net-OpenID-Consumer/files/patch-Consumer.pm	2008-06-04 19:13:53.000000000 +0400
@@ -0,0 +1,29 @@
+--- Consumer.pm	2007-08-04 02:38:53.000000000 +0400
++++ lib/Net/OpenID/Consumer.pm	2008-06-04 19:10:37.000000000 +0400
+@@ -235,7 +235,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;
+@@ -301,7 +301,8 @@
+         $ret->{$k} =~ s/&(\w+);/$emap->{$1} || ""/eg;
+     }
+ 
+-    $self->_debug("semantic info ($url) = " . join(", ", %$ret));
++    $self->_debug("semantic info ($url) = " . join(", ", 
++        map { defined($ret->{$_}) ? ($_ => $ret->{$_}) : () } keys %$ret));
+ 
+     return $ret;
+ }
+@@ -543,6 +544,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);