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]

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;