r33489 - in /trunk/liblwp-useragent-determined-perl: ChangeLog META.yml debian/changelog debian/control lib/LWP/UserAgent/Determined.pm
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Fri Apr 17 05:04:14 UTC 2009
Author: ryan52-guest
Date: Fri Apr 17 05:04:06 2009
New Revision: 33489
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33489
Log:
* New upstream release
* Add myself to Uploaders
* Debian Policy 3.8.1
Modified:
trunk/liblwp-useragent-determined-perl/ChangeLog
trunk/liblwp-useragent-determined-perl/META.yml
trunk/liblwp-useragent-determined-perl/debian/changelog
trunk/liblwp-useragent-determined-perl/debian/control
trunk/liblwp-useragent-determined-perl/lib/LWP/UserAgent/Determined.pm
Modified: trunk/liblwp-useragent-determined-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblwp-useragent-determined-perl/ChangeLog?rev=33489&op=diff
==============================================================================
--- trunk/liblwp-useragent-determined-perl/ChangeLog (original)
+++ trunk/liblwp-useragent-determined-perl/ChangeLog Fri Apr 17 05:04:06 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: trunk/liblwp-useragent-determined-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblwp-useragent-determined-perl/META.yml?rev=33489&op=diff
==============================================================================
--- trunk/liblwp-useragent-determined-perl/META.yml (original)
+++ trunk/liblwp-useragent-determined-perl/META.yml Fri Apr 17 05:04:06 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: trunk/liblwp-useragent-determined-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblwp-useragent-determined-perl/debian/changelog?rev=33489&op=diff
==============================================================================
--- trunk/liblwp-useragent-determined-perl/debian/changelog (original)
+++ trunk/liblwp-useragent-determined-perl/debian/changelog Fri Apr 17 05:04:06 2009
@@ -1,10 +1,16 @@
-liblwp-useragent-determined-perl (1.03-2) UNRELEASED; urgency=low
+liblwp-useragent-determined-perl (1.04-1) UNRELEASED; urgency=low
+ [ gregor herrmann ]
* debian/watch: use dist-based URL.
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
- -- gregor herrmann <gregoa at debian.org> Wed, 06 Aug 2008 18:23:41 -0300
+ [ Ryan Niebur ]
+ * New upstream release
+ * Add myself to Uploaders
+ * Debian Policy 3.8.1
+
+ -- Ryan Niebur <ryanryan52 at gmail.com> Thu, 16 Apr 2009 22:03:57 -0700
liblwp-useragent-determined-perl (1.03-1) unstable; urgency=low
Modified: trunk/liblwp-useragent-determined-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblwp-useragent-determined-perl/debian/control?rev=33489&op=diff
==============================================================================
--- trunk/liblwp-useragent-determined-perl/debian/control (original)
+++ trunk/liblwp-useragent-determined-perl/debian/control Fri Apr 17 05:04:06 2009
@@ -3,7 +3,7 @@
Priority: optional
Build-Depends: debhelper (>= 7), perl, libwww-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Standards-Version: 3.7.3
+Standards-Version: 3.8.1
Homepage: http://search.cpan.org/dist/WP-UserAgent-Determined/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/liblwp-useragent-determined-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/liblwp-useragent-determined-perl/
Modified: trunk/liblwp-useragent-determined-perl/lib/LWP/UserAgent/Determined.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblwp-useragent-determined-perl/lib/LWP/UserAgent/Determined.pm?rev=33489&op=diff
==============================================================================
--- trunk/liblwp-useragent-determined-perl/lib/LWP/UserAgent/Determined.pm (original)
+++ trunk/liblwp-useragent-determined-perl/lib/LWP/UserAgent/Determined.pm Fri Apr 17 05:04:06 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