Date: Wed, 4 Jun 2008 19:37:45 +0400 (MSD) From: Alex Kapranoff <kappa@rambler-co.ru> To: FreeBSD-gnats-submit@freebsd.org Cc: perl@freebsd.org Subject: Add patches to net/p5-Net-OpenID-Consumer Message-ID: <20080604153745.15BEE4A4E@capella.park.rambler.ru>
next in thread | raw e-mail | index | archive | help
>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);
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20080604153745.15BEE4A4E>