Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Remove uncommented code to set X-Content-Range.

  • Loading branch information...
commit 7f896eed9bfb335b92217c9d5c916dbbf266a6fd 1 parent 38c445d
@gisle authored
Showing with 2 additions and 6 deletions.
  1. +2 −6 lib/LWP/Protocol.pm
View
8 lib/LWP/Protocol.pm
@@ -1,10 +1,10 @@
package LWP::Protocol;
-# $Id: Protocol.pm,v 1.43 2004/11/12 13:34:10 gisle Exp $
+# $Id: Protocol.pm,v 1.44 2006/04/26 16:34:21 gisle Exp $
require LWP::MemberMixin;
@ISA = qw(LWP::MemberMixin);
-$VERSION = sprintf("%d.%02d", q$Revision: 1.43 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.44 $ =~ /(\d+)\.(\d+)/);
use strict;
use Carp ();
@@ -119,8 +119,6 @@ sub collect
if (defined($max_size) && $content_size > $max_size) {
LWP::Debug::debug("Aborting because size limit exceeded");
$response->push_header("Client-Aborted", "max_size");
- #my $tot = $response->header("Content-Length") || 0;
- #$response->header("X-Content-Range", "bytes 0-$content_size/$tot");
last;
}
}
@@ -142,8 +140,6 @@ sub collect
if (defined($max_size) && $content_size > $max_size) {
LWP::Debug::debug("Aborting because size limit exceeded");
$response->push_header("Client-Aborted", "max_size");
- #my $tot = $response->header("Content-Length") || 0;
- #$response->header("X-Content-Range", "bytes 0-$content_size/$tot");
last;
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.