Attachment 87656 Details for Bug 124272 – file.diff

[patch] file.diff

file.diff (text/plain), 2.04 KB, created by Alex Kapranoff on 2008-06-04 16:40:00 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Alex Kapranoff

Created: 2008-06-04 16:40:00 UTC

Size: 2.04 KB

patch

obsolete

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

Actions: View | Diff

Attachments on bug 124272: 87656