r33487 - in /branches/upstream/liblwp-useragent-determined-perl/current: ChangeLog META.yml lib/LWP/UserAgent/Determined.pm

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

Author: ryan52-guest
Date: Fri Apr 17 05:02:34 2009
New Revision: 33487

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33487
Log:
[svn-upgrade] Integrating new upstream version, liblwp-useragent-determined-perl (1.04)

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

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=33487&op=diff
==============================================================================
--- branches/upstream/liblwp-useragent-determined-perl/current/ChangeLog (original)
+++ branches/upstream/liblwp-useragent-determined-perl/current/ChangeLog Fri Apr 17 05:02:34 2009
@@ -1,5 +1,9 @@
 Revision history for Perl extension LWP::Determined::UserAgent
-                                        Time-stamp: "2004-04-08 23:10:29 ADT"
+
+2009-04-04 Jesse Vincent <jesse at cpan.org>
+	* Release 1.04 -- Keeping pace with LWP updates
+	* New Maintainer
+	* Resolves [cpan #42123] and [cpan #41508]
 
 
 2004-04-08  Sean M. Burke  sburke at cpan.org

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=33487&op=diff
==============================================================================
--- branches/upstream/liblwp-useragent-determined-perl/current/META.yml (original)
+++ branches/upstream/liblwp-useragent-determined-perl/current/META.yml Fri Apr 17 05:02:34 2009
@@ -1,11 +1,21 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         LWP-UserAgent-Determined
-version:      1.03
-version_from: lib/LWP/UserAgent/Determined.pm
-installdirs:  site
+--- #YAML:1.0
+name:               LWP-UserAgent-Determined
+version:            1.04
+abstract:           a virtual browser that retries errors
+author:  []
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
 requires:
-    LWP:                           0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+    LWP:  0
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.49_01
+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=33487&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 Fri Apr 17 05:02:34 2009
@@ -1,12 +1,11 @@
 
 package LWP::UserAgent::Determined;
-# Time-stamp: "2004-04-08 23:10:07 ADT"           POD is at the end.
-$VERSION = '1.03';
+
+$VERSION = '1.04';
 use      LWP::UserAgent ();
 @ISA = ('LWP::UserAgent');
 
 use strict;
-use LWP::Debug ();
 die "Where's _elem?!!?" unless __PACKAGE__->can('_elem');
 
 sub timing                { shift->_elem('timing' , @_) }
@@ -18,19 +17,13 @@
 
 sub simple_request {
   my($self, @args) = @_;
-  LWP::Debug::trace('simple_request()');
   my(@timing_tries) = ( $self->timing() =~ m<(\d+(?:\.\d+)*)>g );
   my $determination = $self->codes_to_determinate();
-  LWP::Debug::debug("My retrial code policy is ["
-    . join(' ', sort keys %$determination) . "].");
-  LWP::Debug::debug("My retrial timing policy is [@timing_tries].");
 
   my $resp;
   my $before_c = $self->before_determined_callback;
   my $after_c  = $self->after_determined_callback;
   foreach my $pause_if_unsuccessful (@timing_tries, undef) {
-    LWP::Debug::debug("Trying simple_request with args: ["
-      . join(',', map $_||"''", @args) . "]");
     
     $before_c and $before_c->(
       $self, \@timing_tries, $pause_if_unsuccessful, $determination, \@args);
@@ -42,15 +35,11 @@
     my $message = $resp->message;
     $message =~ s/\s+$//s;
     unless( $determination->{$code} ) { # normal case: all is well (or 404, etc)
-      LWP::Debug::debug("It returned a code ($code $message) blocking a retry");
       return $resp;
     }
     if(defined $pause_if_unsuccessful) { # it's undef only on the last
 
-      LWP::Debug::debug("It returned a code ($code $message) that'll make me retry, after $pause_if_unsuccessful seconds.");
       sleep $pause_if_unsuccessful if $pause_if_unsuccessful;
-    } else {
-      LWP::Debug::debug("I give up.  I'm returning this \"$code $message\" response.");
     }
   }