r59543 - in /trunk/libnet-oauth-perl: Build.PL Changes MANIFEST META.yml debian/changelog lib/Net/OAuth.pm lib/Net/OAuth/Message.pm lib/Net/OAuth/Request.pm lib/Net/OAuth/YahooAccessTokenRefreshRequest.pm t/09-encoding.t t/12-xauth.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Jun 18 23:27:24 UTC 2010
Author: gregoa
Date: Fri Jun 18 23:27:18 2010
New Revision: 59543
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59543
Log:
New upstream release.
Added:
trunk/libnet-oauth-perl/lib/Net/OAuth/YahooAccessTokenRefreshRequest.pm
- copied unchanged from r59542, branches/upstream/libnet-oauth-perl/current/lib/Net/OAuth/YahooAccessTokenRefreshRequest.pm
Modified:
trunk/libnet-oauth-perl/Build.PL
trunk/libnet-oauth-perl/Changes
trunk/libnet-oauth-perl/MANIFEST
trunk/libnet-oauth-perl/META.yml
trunk/libnet-oauth-perl/debian/changelog
trunk/libnet-oauth-perl/lib/Net/OAuth.pm
trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm
trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm
trunk/libnet-oauth-perl/t/09-encoding.t
trunk/libnet-oauth-perl/t/12-xauth.t
Modified: trunk/libnet-oauth-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/Build.PL?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/Build.PL (original)
+++ trunk/libnet-oauth-perl/Build.PL Fri Jun 18 23:27:18 2010
@@ -12,6 +12,7 @@
dist_abstract => 'An implementation of the OAuth protocol',
build_requires => {
'Test::More' => '0.66',
+ 'Test::Warn' => '0.21',
},
requires => {
'Digest::HMAC_SHA1' => '1.01',
Modified: trunk/libnet-oauth-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/Changes?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/Changes (original)
+++ trunk/libnet-oauth-perl/Changes Fri Jun 18 23:27:18 2010
@@ -94,4 +94,10 @@
Fix test breakage in 0.23
0.25 Sun, 21 Mar 2010 03:50:40 UTC
- Gah, $VERSION lameness
+ Gah, $VERSION lameness
+
+0.26 Wed, 16 Jun 2010 19:59:04 UTC
+ Message::encode no longer tries fix potential 'double-encoding' (in any case it appeared to be doing it wrong). Now it just complains if you try to pass in undecoded strings. (thanks Daisuke Maki and KATOU Akira)
+
+0.27 Wed, 16 Jun 2010 20:39:59 UTC
+ Added class for Yahoo! access token refresh request (thanks Marc Mims)
Modified: trunk/libnet-oauth-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/MANIFEST?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/MANIFEST (original)
+++ trunk/libnet-oauth-perl/MANIFEST Fri Jun 18 23:27:18 2010
@@ -40,6 +40,7 @@
lib/Net/OAuth/V1_0A/RequestTokenResponse.pm
lib/Net/OAuth/V1_0A/UserAuthResponse.pm
lib/Net/OAuth/XauthAccessTokenRequest.pm
+lib/Net/OAuth/YahooAccessTokenRefreshRequest.pm
Makefile.PL
MANIFEST This list of files
META.yml
Modified: trunk/libnet-oauth-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/META.yml?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/META.yml (original)
+++ trunk/libnet-oauth-perl/META.yml Fri Jun 18 23:27:18 2010
@@ -1,6 +1,6 @@
---
name: Net-OAuth
-version: 0.25
+version: 0.27
author:
- 'Keith Grennan <kgrennan at cpan.org>'
abstract: An implementation of the OAuth protocol
@@ -9,6 +9,7 @@
license: http://dev.perl.org/licenses/
build_requires:
Test::More: 0.66
+ Test::Warn: 0.21
requires:
Class::Accessor: 0.31
Class::Data::Inheritable: 0.06
@@ -21,7 +22,7 @@
provides:
Net::OAuth:
file: lib/Net/OAuth.pm
- version: 0.25
+ version: 0.27
Net::OAuth::AccessTokenRequest:
file: lib/Net/OAuth/AccessTokenRequest.pm
Net::OAuth::AccessTokenResponse:
@@ -34,7 +35,7 @@
file: lib/Net/OAuth/ProtectedResourceRequest.pm
Net::OAuth::Request:
file: lib/Net/OAuth/Request.pm
- version: 0.25
+ version: 0.27
Net::OAuth::RequestTokenRequest:
file: lib/Net/OAuth/RequestTokenRequest.pm
Net::OAuth::RequestTokenResponse:
@@ -61,6 +62,8 @@
file: lib/Net/OAuth/V1_0A/UserAuthResponse.pm
Net::OAuth::XauthAccessTokenRequest:
file: lib/Net/OAuth/XauthAccessTokenRequest.pm
+ Net::OAuth::YahooAccessTokenRefreshRequest:
+ file: lib/Net/OAuth/YahooAccessTokenRefreshRequest.pm
generated_by: Module::Build version 0.35
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
Modified: trunk/libnet-oauth-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/debian/changelog?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/debian/changelog (original)
+++ trunk/libnet-oauth-perl/debian/changelog Fri Jun 18 23:27:18 2010
@@ -1,3 +1,9 @@
+libnet-oauth-perl (0.27-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sat, 19 Jun 2010 01:26:18 +0200
+
libnet-oauth-perl (0.25-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libnet-oauth-perl/lib/Net/OAuth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/lib/Net/OAuth.pm?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/lib/Net/OAuth.pm (original)
+++ trunk/libnet-oauth-perl/lib/Net/OAuth.pm Fri Jun 18 23:27:18 2010
@@ -8,8 +8,8 @@
sub OAUTH_VERSION() {'1.0'}
-our $VERSION = '0.25';
-our $SKIP_UTF8_DOUBLE_ENCODE_CHECK = 0; # this is not actually used any more
+our $VERSION = '0.27';
+our $SKIP_UTF8_DOUBLE_ENCODE_CHECK = 0;
our $PROTOCOL_VERSION = PROTOCOL_VERSION_1_0;
sub request {
Modified: trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm (original)
+++ trunk/libnet-oauth-perl/lib/Net/OAuth/Message.pm Fri Jun 18 23:27:18 2010
@@ -101,16 +101,11 @@
sub encode {
my $str = shift;
$str = "" unless defined $str;
- if ($str =~ /[\x80-\xFF]/) {
- Net::OAuth::smart_require('Encode', 1);
- no strict 'subs';
- if (Encode::is_utf8($str)) {
- # Avoid double-encoding UTF-8.
- # Ideally the caller would have done this already
- # But perl5 + unicode is very confusing, so try to be helpful..
- $str = Encode::decode_utf8($str, 1);
- }
- }
+ unless($Net::OAuth::SKIP_UTF8_DOUBLE_ENCODE_CHECK) {
+ if ($str =~ /[\x80-\xFF]/ and !utf8::is_utf8($str)) {
+ warn "Net::OAuth warning: your OAuth message appears to contain some multi-byte characters that need to be decoded via Encode.pm or a PerlIO layer first. This may result in an incorrect signature.";
+ }
+ }
return URI::Escape::uri_escape_utf8($str,'^\w.~-');
}
Modified: trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm (original)
+++ trunk/libnet-oauth-perl/lib/Net/OAuth/Request.pm Fri Jun 18 23:27:18 2010
@@ -6,7 +6,7 @@
use URI::QueryParam;
use Net::OAuth;
-our $VERSION = '0.25';
+our $VERSION = '0.27';
__PACKAGE__->mk_classdata(required_message_params => [qw/
consumer_key
Modified: trunk/libnet-oauth-perl/t/09-encoding.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/t/09-encoding.t?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/t/09-encoding.t (original)
+++ trunk/libnet-oauth-perl/t/09-encoding.t Fri Jun 18 23:27:18 2010
@@ -2,14 +2,14 @@
use strict;
use warnings;
-use Test::More tests => 18;
+use Test::More tests => 15;
+use Test::Warn;
use Encode;
+use utf8;
BEGIN {
use_ok( 'Net::OAuth::Message' );
}
-
-use utf8;
sub is_encoding {
my $orig = shift;
@@ -26,12 +26,7 @@
is_encoding("\x{000A}", '%0A');
is_encoding("\x{0020}", '%20');
is_encoding("\x{007F}", '%7F');
-is_encoding("\x{0080}", '%C2%80');
-is_encoding("\x{2708}", '%E2%9C%88');
-is_encoding("\x{3001}", '%E3%80%81');
-is_encoding("\x{2708}", '%E2%9C%88');
-is_encoding("\x{00A0}", '%C2%A0');
-is_encoding("\x{00E7}", '%C3%A7');
is_encoding("ç", '%C3%A7');
is_encoding("æ", '%C3%A6');
-
+is_encoding("ç§ã¯ã‚¬ãƒ©ã‚¹ã‚’食ã¹ã‚‰ã‚Œã¾ã™ã€‚ãã‚Œã¯ç§ã‚’å‚·ã¤ã‘ã¾ã›ã‚“。", "%E7%A7%81%E3%81%AF%E3%82%AC%E3%83%A9%E3%82%B9%E3%82%92%E9%A3%9F%E3%81%B9%E3%82%89%E3%82%8C%E3%81%BE%E3%81%99%E3%80%82%E3%81%9D%E3%82%8C%E3%81%AF%E7%A7%81%E3%82%92%E5%82%B7%E3%81%A4%E3%81%91%E3%81%BE%E3%81%9B%E3%82%93%E3%80%82");
+warning_like {is_encoding(Encode::encode_utf8("ç"), '%C3%83%C2%A7')} qr/your OAuth message appears to contain some multi-byte characters that need to be decoded/, "Should see warning about characters needing to be decoded";
Modified: trunk/libnet-oauth-perl/t/12-xauth.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-oauth-perl/t/12-xauth.t?rev=59543&op=diff
==============================================================================
--- trunk/libnet-oauth-perl/t/12-xauth.t (original)
+++ trunk/libnet-oauth-perl/t/12-xauth.t Fri Jun 18 23:27:18 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 5;
use Net::OAuth;
@@ -41,4 +41,23 @@
);
};
-ok($@);
+ok($@);
+
+$request = Net::OAuth->request('yahoo access token refresh')->new(
+ consumer_key => 'dpf43f3p2l4k3l03',
+ consumer_secret => 'kd94hf93k423kf44',
+ request_url => 'https://photos.example.net/access_token',
+ request_method => 'POST',
+ signature_method => 'HMAC-SHA1',
+ timestamp => '1191242092',
+ nonce => 'dji430splmx33448',
+ token => 'hh5s93j4hdidpola',
+ token_secret => 'hdhd0244k9j7ao03',
+ session_handle => 'this is my session handle',
+);
+
+$request->sign;
+
+ok($request->verify);
+
+is($request->to_post_body, 'oauth_consumer_key=dpf43f3p2l4k3l03&oauth_nonce=dji430splmx33448&oauth_session_handle=this%20is%20my%20session%20handle&oauth_signature=cIkNa1a40fmnGuuWVYHWFOrTE3M%3D&oauth_signature_method=HMAC-SHA1&oauth_timestamp=1191242092&oauth_token=hh5s93j4hdidpola&oauth_version=1.0');
More information about the Pkg-perl-cvs-commits
mailing list