r57796 - in /branches/upstream/libnet-twitter-lite-perl/current: Changes META.yml Makefile.PL README lib/Net/Twitter/Lite.pm t/unicode.t

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Tue May 11 12:02:10 2010
New Revision: 57796

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57796
Log:
[svn-upgrade] Integrating new upstream version, libnet-twitter-lite-perl (0.09001)

Modified:
    branches/upstream/libnet-twitter-lite-perl/current/Changes
    branches/upstream/libnet-twitter-lite-perl/current/META.yml
    branches/upstream/libnet-twitter-lite-perl/current/Makefile.PL
    branches/upstream/libnet-twitter-lite-perl/current/README
    branches/upstream/libnet-twitter-lite-perl/current/lib/Net/Twitter/Lite.pm
    branches/upstream/libnet-twitter-lite-perl/current/t/unicode.t

Modified: branches/upstream/libnet-twitter-lite-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-lite-perl/current/Changes?rev=57796&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-lite-perl/current/Changes (original)
+++ branches/upstream/libnet-twitter-lite-perl/current/Changes Tue May 11 12:02:10 2010
@@ -1,3 +1,7 @@
+0.09001 2010-05-10
+    - removed Try::Tiny from unicode test to avoid an additional dependency
+    - Fixed unicode test, aburch (Ansgar Burchardt)
+
 0.09000 2010-05-09
     - New API methods (from Net::Twitter): friendships_incoming,
       friendships_outgoing, geo_id, retweeted_by, retweeted_by_ids,

Modified: branches/upstream/libnet-twitter-lite-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-lite-perl/current/META.yml?rev=57796&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-lite-perl/current/META.yml (original)
+++ branches/upstream/libnet-twitter-lite-perl/current/META.yml Tue May 11 12:02:10 2010
@@ -32,4 +32,4 @@
   homepage: http://github.com/semifor/Net-Twitter-Lite
   license: http://dev.perl.org/licenses/
   repository: git://github.com/semifor/net-twitter-lite.git
-version: 0.09000
+version: 0.09001

Modified: branches/upstream/libnet-twitter-lite-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-lite-perl/current/Makefile.PL?rev=57796&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-lite-perl/current/Makefile.PL (original)
+++ branches/upstream/libnet-twitter-lite-perl/current/Makefile.PL Tue May 11 12:02:10 2010
@@ -1,6 +1,6 @@
 use inc::Module::Install;
 
-version '0.09000';
+version '0.09001';
 
 if ( $Module::Install::AUTHOR ) {
     eval "use Net::Twitter::Core";

Modified: branches/upstream/libnet-twitter-lite-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-lite-perl/current/README?rev=57796&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-lite-perl/current/README (original)
+++ branches/upstream/libnet-twitter-lite-perl/current/README Tue May 11 12:02:10 2010
@@ -2,7 +2,7 @@
     Net::Twitter::Lite - A perl interface to the Twitter API
 
 VERSION
-    This document describes Net::Twitter::Lite version 0.09000
+    This document describes Net::Twitter::Lite version 0.09001
 
 SYNOPSIS
       use Net::Twitter::Lite;
@@ -254,7 +254,7 @@
 
         useragent
             The value for "User-Agent" HTTP header. It defaults to
-            "Net::Twitter::Lite/0.09000 (Perl)".
+            "Net::Twitter::Lite/0.09001 (Perl)".
 
         source
             The value used in the "source" parameter of API method calls. It

Modified: branches/upstream/libnet-twitter-lite-perl/current/lib/Net/Twitter/Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-lite-perl/current/lib/Net/Twitter/Lite.pm?rev=57796&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-lite-perl/current/lib/Net/Twitter/Lite.pm (original)
+++ branches/upstream/libnet-twitter-lite-perl/current/lib/Net/Twitter/Lite.pm Tue May 11 12:02:10 2010
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-our $VERSION = '0.09000';
+our $VERSION = '0.09001';
 $VERSION = eval { $VERSION };
 
 use Carp;
@@ -1230,7 +1230,7 @@
 
 =head1 VERSION
 
-This document describes Net::Twitter::Lite version 0.09000
+This document describes Net::Twitter::Lite version 0.09001
 
 =head1 SYNOPSIS
 
@@ -1515,7 +1515,7 @@
 =item useragent
 
 The value for C<User-Agent> HTTP header.  It defaults to
-"Net::Twitter::Lite/0.09000 (Perl)".
+"Net::Twitter::Lite/0.09001 (Perl)".
 
 =item source
 

Modified: branches/upstream/libnet-twitter-lite-perl/current/t/unicode.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-twitter-lite-perl/current/t/unicode.t?rev=57796&op=diff
==============================================================================
--- branches/upstream/libnet-twitter-lite-perl/current/t/unicode.t (original)
+++ branches/upstream/libnet-twitter-lite-perl/current/t/unicode.t Tue May 11 12:02:10 2010
@@ -1,7 +1,6 @@
 #!perl
 use warnings;
 use strict;
-use Try::Tiny;
 use Test::More tests => 9;
 use Encode qw/decode encode_utf8 decode_utf8/;
 use Net::Twitter::Lite;
@@ -38,7 +37,7 @@
 
 ok utf8::is_utf8($status), 'status parameter is decoded';
 
-try { $nt->update($status) };
+eval { $nt->update($status) };
 
 is sent_status(), $status, 'sent status matches update parameter';
 
@@ -46,7 +45,7 @@
 my $latin1 = "\xabHello, world\xbb";
 
 ok !utf8::is_utf8($latin1), "latin-1 string is not utf8 internally";
-try { $nt->update($latin1) };
+eval { $nt->update($latin1) };
 is sent_status(), $latin1, "latin-1 matches";
 ok !utf8::is_utf8($latin1), "latin-1 not promoted to utf8";
 
@@ -56,9 +55,9 @@
 
 SKIP: {
     eval "use Encode::DoubleEncodedUTF8";
-    skip "requires Encode::DoubleEncodedUTF8" if $@;
+    skip "requires Encode::DoubleEncodedUTF8", 2 if $@;
 
-    try { $nt->update(encode_utf8 $status) };
+    eval { $nt->update(encode_utf8 $status) };
 
     my $bytes = raw_sent_status();
 
@@ -76,8 +75,8 @@
     ua       => $ua,
 );
 
-try { $nt->update($status) };
+eval { $nt->update($status) };
 is sent_status(), $status, 'basic auth';
 
-try { $nt->update($latin1) };
+eval { $nt->update($latin1) };
 is sent_status(), $latin1, 'latin-1 basic auth';