r59599 - in /branches/upstream/libnet-twitter-perl/current: ./ lib/Net/ lib/Net/Twitter/ lib/Net/Twitter/Role/ t/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Jun 19 13:50:16 UTC 2010
Author: gregoa
Date: Sat Jun 19 13:50:07 2010
New Revision: 59599
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59599
Log:
[svn-upgrade] new version libnet-twitter-perl (3.13006)
Modified:
branches/upstream/libnet-twitter-perl/current/Changes
branches/upstream/libnet-twitter-perl/current/META.yml
branches/upstream/libnet-twitter-perl/current/README
branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm
branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm
branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod
branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm
branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm
branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/OAuth.pm
branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm
branches/upstream/libnet-twitter-perl/current/t/51_since.t
branches/upstream/libnet-twitter-perl/current/t/unicode.t
Modified: branches/upstream/libnet-twitter-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/Changes?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/Changes (original)
+++ branches/upstream/libnet-twitter-perl/current/Changes Sat Jun 19 13:50:07 2010
@@ -1,3 +1,10 @@
+3.13006 2010-06-18
+ - test fix: bump the skip count for a new test in t/unicode.t for optional module
+
+3.13005 2010-06-18
+ - fixed: since (synthetic arg) filtering
+ - fixed: don't use args for OAuth signature on multi-part mime posts
+
3.13004 2010-06-18
- fixed: OAuth signature error with unicode args (RT#58493)
Modified: branches/upstream/libnet-twitter-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/META.yml?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/META.yml (original)
+++ branches/upstream/libnet-twitter-perl/current/META.yml Sat Jun 19 13:50:07 2010
@@ -51,4 +51,4 @@
homepage: http://github.com/semifor/Net-Twitter
license: http://dev.perl.org/licenses/
repository: git://github.com/semifor/Net-Twitter.git
-version: 3.13004
+version: 3.13006
Modified: branches/upstream/libnet-twitter-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/README?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/README (original)
+++ branches/upstream/libnet-twitter-perl/current/README Sat Jun 19 13:50:07 2010
@@ -2,7 +2,7 @@
Net::Twitter - A perl interface to the Twitter API
VERSION
- This document describes Net::Twitter version 3.13004
+ This document describes Net::Twitter version 3.13006
SYNOPSIS
use Net::Twitter;
Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Identica.pm Sat Jun 19 13:50:07 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.13004';
+our $VERSION = '3.13006';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pm Sat Jun 19 13:50:07 2010
@@ -11,7 +11,7 @@
);
# use *all* digits for fBSD ports
-our $VERSION = '3.13004';
+our $VERSION = '3.13006';
$VERSION = eval $VERSION; # numify for warning-free dev releases
Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter.pod Sat Jun 19 13:50:07 2010
@@ -4,7 +4,7 @@
=head1 VERSION
-This document describes Net::Twitter version 3.13004
+This document describes Net::Twitter version 3.13006
=head1 SYNOPSIS
Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Core.pm Sat Jun 19 13:50:07 2010
@@ -17,7 +17,7 @@
use namespace::autoclean;
# use *all* digits for fBSD ports
-our $VERSION = '3.13004';
+our $VERSION = '3.13006';
$VERSION = eval $VERSION; # numify for warning-free dev releases
@@ -248,20 +248,13 @@
return unless $self->_contains_statuses($data);
- # $obj may have inflated created_at attributes, already
- my $get_created_at_dt = ref $data->[0]{created_at} ? sub { shift->{created_at} }
- : sub { $datetime_parser->parse_datetime(shift->{created_at}) };
-
- # filter out statuses that are too old
+ # truncate $data when we reach an item as old or older than $since_dt
my $i = 0;
while ( $i < @$data ) {
- unless ( $get_created_at_dt->($data->[$i]) > $since_dt ) {
- splice @$data, $i, 1;
- }
- else {
- $i++;
- }
+ last if $datetime_parser->parse_datetime($data->[$i]{created_at}) <= $since_dt;
+ ++$i;
}
+ $#{$data} = $i - 1;
}
);
Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/OAuth.pm Sat Jun 19 13:50:07 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.13004';
+our $VERSION = '3.13006';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/OAuth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/OAuth.pm?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/OAuth.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Role/OAuth.pm Sat Jun 19 13:50:07 2010
@@ -165,6 +165,8 @@
return unless $self->authorized;
+ my $is_multipart = grep { ref } %$args;
+
local $Net::OAuth::SKIP_UTF8_DOUBLE_ENCODE_CHECK = 1;
my $request = $self->_make_oauth_request(
@@ -173,7 +175,7 @@
request_method => $msg->method,
token => $self->access_token,
token_secret => $self->access_token_secret,
- extra_params => $args,
+ extra_params => $is_multipart ? {} : $args,
);
$msg->header(authorization => $request->to_authorization_header);
Modified: branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm (original)
+++ branches/upstream/libnet-twitter-perl/current/lib/Net/Twitter/Search.pm Sat Jun 19 13:50:07 2010
@@ -2,7 +2,7 @@
use Moose;
# use *all* digits for fBSD ports
-our $VERSION = '3.13004';
+our $VERSION = '3.13006';
$VERSION = eval $VERSION; # numify for warning-free dev releases
extends 'Net::Twitter::Core';
Modified: branches/upstream/libnet-twitter-perl/current/t/51_since.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/t/51_since.t?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/t/51_since.t (original)
+++ branches/upstream/libnet-twitter-perl/current/t/51_since.t Sat Jun 19 13:50:07 2010
@@ -44,11 +44,11 @@
$r = $nt->friends_timeline({ since => $dt - DateTime::Duration->new(days => 1) });
cmp_ok @$r, '==', 1, 'filtered with DateTime';
-$r = $nt->friends_timeline({ since => time - 3600*24 });
+$r = $nt->friends_timeline({ since => time - 3600*25 });
cmp_ok @$r, '==', 1, 'filtered with epoch';
$r = $nt->friends_timeline({ since => $datetime_parser->format_datetime(
- $dt - DateTime::Duration->new(days => 1)) });
+ $dt - DateTime::Duration->new(hours => 25)) });
cmp_ok @$r, '==', 1, 'filtered with string in Twitter timestamp format';
my $test = 'dies on invalid since';
Modified: branches/upstream/libnet-twitter-perl/current/t/unicode.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-perl/current/t/unicode.t?rev=59599&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-perl/current/t/unicode.t (original)
+++ branches/upstream/libnet-twitter-perl/current/t/unicode.t Sat Jun 19 13:50:07 2010
@@ -69,7 +69,7 @@
SKIP: {
eval "use Encode::DoubleEncodedUTF8";
- skip "requires Encode::DoubleEncodedUTF8", 2 if $@;
+ skip "requires Encode::DoubleEncodedUTF8", 3 if $@;
try { $nt->update(encode_utf8 $status) };
More information about the Pkg-perl-cvs-commits
mailing list