r66958 - in /branches/upstream/liblwp-useragent-determined-perl/current: ChangeLog META.yml lib/LWP/UserAgent/Determined.pm t/10_determined_test.t
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Tue Jan 4 22:31:47 UTC 2011
Author: periapt-guest
Date: Tue Jan 4 22:31:39 2011
New Revision: 66958
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66958
Log:
[svn-upgrade] new version liblwp-useragent-determined-perl (1.05)
Modified:
branches/upstream/liblwp-useragent-determined-perl/current/ChangeLog
branches/upstream/liblwp-useragent-determined-perl/current/META.yml
branches/upstream/liblwp-useragent-determined-perl/current/lib/LWP/UserAgent/Determined.pm
branches/upstream/liblwp-useragent-determined-perl/current/t/10_determined_test.t
Modified: branches/upstream/liblwp-useragent-determined-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblwp-useragent-determined-perl/current/ChangeLog?rev=66958&op=diff
==============================================================================
--- branches/upstream/liblwp-useragent-determined-perl/current/ChangeLog (original)
+++ branches/upstream/liblwp-useragent-determined-perl/current/ChangeLog Tue Jan 4 22:31:39 2011
@@ -1,4 +1,9 @@
Revision history for Perl extension LWP::Determined::UserAgent
+
+2011-01-03 Jesse Vincent <jesse at cpan.org>
+ * Release 1.05
+ * Fix for RT#55591: Incorrect default value for 'codes_to_determinate'
+ from yibe via github.
2009-04-04 Jesse Vincent <jesse at cpan.org>
* Release 1.04 -- Keeping pace with LWP updates
Modified: branches/upstream/liblwp-useragent-determined-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblwp-useragent-determined-perl/current/META.yml?rev=66958&op=diff
==============================================================================
--- branches/upstream/liblwp-useragent-determined-perl/current/META.yml (original)
+++ branches/upstream/liblwp-useragent-determined-perl/current/META.yml Tue Jan 4 22:31:39 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: LWP-UserAgent-Determined
-version: 1.04
+version: 1.05
abstract: a virtual browser that retries errors
author: []
license: unknown
@@ -15,7 +15,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.49_01
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: branches/upstream/liblwp-useragent-determined-perl/current/lib/LWP/UserAgent/Determined.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblwp-useragent-determined-perl/current/lib/LWP/UserAgent/Determined.pm?rev=66958&op=diff
==============================================================================
--- branches/upstream/liblwp-useragent-determined-perl/current/lib/LWP/UserAgent/Determined.pm (original)
+++ branches/upstream/liblwp-useragent-determined-perl/current/lib/LWP/UserAgent/Determined.pm Tue Jan 4 22:31:39 2011
@@ -1,7 +1,7 @@
package LWP::UserAgent::Determined;
-$VERSION = '1.04';
+$VERSION = '1.05';
use LWP::UserAgent ();
@ISA = ('LWP::UserAgent');
@@ -59,7 +59,7 @@
sub _determined_init {
my $self = shift;
$self->timing( '1,3,15' );
- $self->codes_to_determinate( { map $_=>1,
+ $self->codes_to_determinate( { map { $_=>1 }
'408', # Request Timeout
'500', # Internal Server Error
'502', # Bad Gateway
Modified: branches/upstream/liblwp-useragent-determined-perl/current/t/10_determined_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblwp-useragent-determined-perl/current/t/10_determined_test.t?rev=66958&op=diff
==============================================================================
--- branches/upstream/liblwp-useragent-determined-perl/current/t/10_determined_test.t (original)
+++ branches/upstream/liblwp-useragent-determined-perl/current/t/10_determined_test.t Tue Jan 4 22:31:39 2011
@@ -2,7 +2,7 @@
# Time-stamp: "0";
use strict;
use Test;
-BEGIN { plan tests => 11 }
+BEGIN { plan tests => 13 }
#use LWP::Debug ('+');
@@ -16,6 +16,10 @@
print "# LWP::UserAgent::Determined v$LWP::UserAgent::Determined::VERSION\n";
print "# LWP::UserAgent v$LWP::UserAgent::VERSION\n";
print "# LWP v$LWP::VERSION\n" if $LWP::VERSION;
+
+my @error_codes = qw(408 500 502 503 504);
+ok( @error_codes == keys %{$browser->codes_to_determinate} );
+ok( @error_codes == grep { $browser->codes_to_determinate->{$_} } @error_codes );
my $url = 'http://www.livejournal.com/~torgo_x/rss';
my $before_count = 0;
More information about the Pkg-perl-cvs-commits
mailing list