From owner-freebsd-ports-bugs@FreeBSD.ORG Wed Jun 4 15:40:01 2008 Return-Path: Delivered-To: freebsd-ports-bugs@hub.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id 974541065670 for ; Wed, 4 Jun 2008 15:40:01 +0000 (UTC) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (freefall.freebsd.org [IPv6:2001:4f8:fff6::28]) by mx1.freebsd.org (Postfix) with ESMTP id 6C3188FC16 for ; Wed, 4 Jun 2008 15:40:01 +0000 (UTC) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (gnats@localhost [127.0.0.1]) by freefall.freebsd.org (8.14.2/8.14.2) with ESMTP id m54Fe1XL051047 for ; Wed, 4 Jun 2008 15:40:01 GMT (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.14.2/8.14.1/Submit) id m54Fe1c4051046; Wed, 4 Jun 2008 15:40:01 GMT (envelope-from gnats) Resent-Date: Wed, 4 Jun 2008 15:40:01 GMT Resent-Message-Id: <200806041540.m54Fe1c4051046@freefall.freebsd.org> Resent-From: FreeBSD-gnats-submit@FreeBSD.org (GNATS Filer) Resent-To: freebsd-ports-bugs@FreeBSD.org Resent-Reply-To: FreeBSD-gnats-submit@FreeBSD.org, Alex Kapranoff Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id 1BF401065674 for ; Wed, 4 Jun 2008 15:36:01 +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 BCDB58FC1E for ; Wed, 4 Jun 2008 15:36:00 +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) Message-Id: <20080604153745.15BEE4A4E@capella.park.rambler.ru> Date: Wed, 4 Jun 2008 19:37:45 +0400 (MSD) From: Alex Kapranoff To: FreeBSD-gnats-submit@FreeBSD.org X-Send-Pr-Version: 3.113 Cc: perl@FreeBSD.org Subject: ports/124272: Add patches to net/p5-Net-OpenID-Consumer X-BeenThere: freebsd-ports-bugs@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Ports bug reports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 04 Jun 2008 15:40:01 -0000 >Number: 124272 >Category: ports >Synopsis: Add patches to net/p5-Net-OpenID-Consumer >Confidential: no >Severity: non-critical >Priority: high >Responsible: freebsd-ports-bugs >State: open >Quarter: >Keywords: >Date-Required: >Class: sw-bug >Submitter-Id: current-users >Arrival-Date: Wed Jun 04 15:40:00 UTC 2008 >Closed-Date: >Last-Modified: >Originator: Alex Kapranoff >Release: FreeBSD 5.2-CURRENT i386 >Organization: Rambler >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 + # + 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); >Release-Note: >Audit-Trail: >Unformatted: