Attachment 98484 Details for Bug 137414 – p5-WWW-Plurk-0.02_1.patch

[patch] p5-WWW-Plurk-0.02_1.patch

p5-WWW-Plurk-0.02_1.patch (text/plain), 3.33 KB, created by Yen-Ming Lee on 2009-08-04 09:00:14 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Yen-Ming Lee

Created: 2009-08-04 09:00:14 UTC

Size: 3.33 KB

patch

obsolete

>Index: Makefile
>===================================================================
>RCS file: /home/pcvs/ports/www/p5-WWW-Plurk/Makefile,v
>retrieving revision 1.1
>diff -u -d -b -w -u -r1.1 Makefile
>--- Makefile	10 Aug 2008 05:44:35 -0000	1.1
>+++ Makefile	4 Aug 2009 07:55:42 -0000
>@@ -7,6 +7,7 @@
> 
> PORTNAME=	WWW-Plurk
> PORTVERSION=	0.02
>+PORTREVISION=	1
> CATEGORIES=	www perl5
> MASTER_SITES=	CPAN
> PKGNAMEPREFIX=	p5-
>@@ -14,17 +15,22 @@
> MAINTAINER=	mhsin@mhsin.org
> COMMENT=	Unofficial plurk.com API
> 
>-BUILD_DEPENDS=	p5-Time-Piece>=0:${PORTSDIR}/devel/p5-Time-Piece \
>-		p5-DateTime-Format-Mail>=0:${PORTSDIR}/devel/p5-DateTime-Format-Mail \
>-		${SITE_PERL}/HTTP/Cookies.pm:${PORTSDIR}/www/p5-libwww \
>-		p5-JSON>=2.00:${PORTSDIR}/converters/p5-JSON \
>-		p5-Test-Deep>=0:${PORTSDIR}/devel/p5-Test-Deep \
>+RUN_DEPENDS=	p5-DateTime-Format-Mail>=0:${PORTSDIR}/devel/p5-DateTime-Format-Mail \
> 		p5-HTML-Tiny>=0:${PORTSDIR}/textproc/p5-HTML-Tiny \
>-		p5-Math-Base36>=0:${PORTSDIR}/math/p5-Math-Base36
>-RUN_DEPENDS=	${BUILD_DEPENDS}
>+		p5-JSON>=2.00:${PORTSDIR}/converters/p5-JSON1 \
>+		p5-Math-Base36>=0:${PORTSDIR}/math/p5-Math-Base36 \
>+		p5-libwww>=0:${PORTSDIR}/www/p5-libwww
>+BUILD_DEPENDS=	${RUN_DEPENDS}
>+BUILD_DEPENDS+=	p5-Test-Deep>=0:${PORTSDIR}/devel/p5-Test-Deep
> 
> PERL_CONFIGURE=	yes
> 
> MAN3=		WWW::Plurk.3 WWW::Plurk::Friend.3 WWW::Plurk::Message.3
> 
>-.include <bsd.port.mk>
>+.include <bsd.port.pre.mk>
>+
>+.if ${PERL_LEVEL} < 500905
>+RUN_DEPENDS+=	p5-Time-Piece>=0:${PORTSDIR}/devel/p5-Time-Piece
>+.endif
>+
>+.include <bsd.port.post.mk>
>Index: pkg-descr
>===================================================================
>RCS file: /home/pcvs/ports/www/p5-WWW-Plurk/pkg-descr,v
>retrieving revision 1.1
>diff -u -d -b -w -u -r1.1 pkg-descr
>--- pkg-descr	10 Aug 2008 05:44:35 -0000	1.1
>+++ pkg-descr	4 Aug 2009 07:55:42 -0000
>@@ -6,9 +6,5 @@
> Ryan Lim did the heavy lifting of reverse engineering the API. His PHP
> implementation can be found at http://code.google.com/p/rlplurkapi/.
> 
>-If you'd like to lend a hand supporting the bits of Plurk that this API
>-doesn't yet reach please feel free to send me a patch. The Plurk API Wiki at
>-http://plurkwiki.badchemicals.net/ is a good source of information.
>-
> Author:	Andy Armstrong <andy.armstrong@messagesystems.com>
> WWW:	http://search.cpan.org/dist/WWW-Plurk/
>Index: files/patch-lib__WWW__Plurk.pm
>===================================================================
>RCS file: files/patch-lib__WWW__Plurk.pm
>diff -N files/patch-lib__WWW__Plurk.pm
>--- /dev/null	1 Jan 1970 00:00:00 -0000
>+++ files/patch-lib__WWW__Plurk.pm	4 Aug 2009 07:55:42 -0000
>@@ -0,0 +1,21 @@
>+--- lib/WWW/Plurk.pm.orig	2009-08-02 17:46:42.000000000 -0700
>++++ lib/WWW/Plurk.pm	2009-08-02 17:47:52.000000000 -0700
>+@@ -247,7 +247,7 @@
>+     );
>+ 
>+     my $ok = 0;
>+-    $self->_cookies->scan( sub { $ok++ if $_[1] eq 'plurkcookie' } );
>++    $self->_cookies->scan( sub { $ok++ if $_[1] eq 'plurkcookiea' } );
>+     croak "Login for $name failed, no cookie returned"
>+       unless $ok;
>+ 
>+@@ -705,7 +705,8 @@
>+ 
>+ sub _uri_for {
>+     my ( $self, $service ) = ( shift, shift );
>+-    my $uri = $self->_base_uri . $self->_path_for( $service );
>++    my $uri = $self->_path_for( $service );
>++    $uri = $self->_base_uri . $uri if $uri !~ m{^http};
>+     return $uri unless @_;
>+     my $params = shift;
>+     return join '?', $uri, HTML::Tiny->new->query_encode( $params );

Actions: View | Diff

Attachments on bug 137414: 98484