From owner-freebsd-perl@FreeBSD.ORG  Wed Jun  4 15:54:55 2008
Return-Path: <owner-freebsd-perl@FreeBSD.ORG>
Delivered-To: perl@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34])
	by hub.freebsd.org (Postfix) with ESMTP id E9455106564A
	for <perl@freebsd.org>; Wed,  4 Jun 2008 15:54:55 +0000 (UTC)
	(envelope-from kappa@rambler-co.ru)
Received: from mailsupport.rambler.ru (mailsupport.rambler.ru [81.19.66.129])
	by mx1.freebsd.org (Postfix) with ESMTP id 8B1188FC20
	for <perl@freebsd.org>; Wed,  4 Jun 2008 15:54:55 +0000 (UTC)
	(envelope-from kappa@rambler-co.ru)
Received: from capella.park.rambler.ru (unknown [81.19.90.169])
	(using TLSv1 with cipher ADH-CAMELLIA256-SHA (256/256 bits))
	(No client certificate requested)
	by mailsupport.rambler.ru (Postfix) with ESMTPSA id 2FFC82D6;
	Wed,  4 Jun 2008 19:35:59 +0400 (MSD)
Received: by capella.park.rambler.ru (Postfix, from userid 1001)
	id 15BEE4A4E; Wed,  4 Jun 2008 19:37:45 +0400 (MSD)
To: FreeBSD-gnats-submit@freebsd.org
From: Alex Kapranoff <kappa@rambler-co.ru>
X-send-pr-version: 3.113
X-GNATS-Notify: 
Message-Id: <20080604153745.15BEE4A4E@capella.park.rambler.ru>
Date: Wed,  4 Jun 2008 19:37:45 +0400 (MSD)
Cc: perl@freebsd.org
Subject: Add patches to net/p5-Net-OpenID-Consumer
X-BeenThere: freebsd-perl@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: maintainer of a number of perl-related ports
	<freebsd-perl.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-perl>,
	<mailto:freebsd-perl-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-perl>
List-Post: <mailto:freebsd-perl@freebsd.org>
List-Help: <mailto:freebsd-perl-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-perl>,
	<mailto:freebsd-perl-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 04 Jun 2008 15:54:56 -0000


>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@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);