r61142 - in /branches/lenny/libwww-perl: debian/changelog lib/LWP/Protocol/http.pm

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

Author: ansgar-guest
Date: Tue Aug  3 18:32:18 2010
New Revision: 61142

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61142
Log:
TODO: Wait for ack from release team (#591524).
* Fix incorrect use of redo. (Closes: #591462)

Modified:
    branches/lenny/libwww-perl/debian/changelog
    branches/lenny/libwww-perl/lib/LWP/Protocol/http.pm

Modified: branches/lenny/libwww-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libwww-perl/debian/changelog?rev=61142&op=diff
==============================================================================
--- branches/lenny/libwww-perl/debian/changelog (original)
+++ branches/lenny/libwww-perl/debian/changelog Tue Aug  3 18:32:18 2010
@@ -1,3 +1,11 @@
+libwww-perl (5.813-1+lenny1) UNRELEASED; urgency=low
+
+  TODO: Wait for ack from release team (#591524).
+
+  * Fix incorrect use of redo. (Closes: #591462)
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Wed, 04 Aug 2010 02:52:22 +0900
+
 libwww-perl (5.813-1) unstable; urgency=low
 
   * New upstream release.

Modified: branches/lenny/libwww-perl/lib/LWP/Protocol/http.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libwww-perl/lib/LWP/Protocol/http.pm?rev=61142&op=diff
==============================================================================
--- branches/lenny/libwww-perl/lib/LWP/Protocol/http.pm (original)
+++ branches/lenny/libwww-perl/lib/LWP/Protocol/http.pm Tue Aug  3 18:32:18 2010
@@ -203,15 +203,16 @@
     #print "------\n$req_buf\n------\n";
 
     if (!$has_content || $write_wait || $has_content > 8*1024) {
-        do {
+      WRITE:
+        {
             # Since this just writes out the header block it should almost
             # always succeed to send the whole buffer in a single write call.
             my $n = $socket->syswrite($req_buf, length($req_buf));
             unless (defined $n) {
-                redo if $!{EINTR};
+                redo WRITE if $!{EINTR};
                 if ($!{EAGAIN}) {
                     select(undef, undef, undef, 0.1);
-                    redo;
+                    redo WRITE;
                 }
                 die "write failed: $!";
             }
@@ -221,8 +222,8 @@
             else {
                 select(undef, undef, undef, 0.5);
             }
+            redo WRITE if length $req_buf;
         }
-        while (length $req_buf);
     }
 
     my($code, $mess, @junk);