r33487 - in /branches/upstream/liblwp-useragent-determined-perl/current: ChangeLog META.yml lib/LWP/UserAgent/Determined.pm
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Fri Apr 17 05:02:40 UTC 2009
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.");
}
}
More information about the Pkg-perl-cvs-commits
mailing list