File tree 1 file changed +2
-6
lines changed
1 file changed +2
-6
lines changed Original file line number Diff line number Diff line change 1
1
package LWP::Protocol ;
2
2
3
- # $Id: Protocol.pm,v 1.43 2004/11/12 13 :34:10 gisle Exp $
3
+ # $Id: Protocol.pm,v 1.44 2006/04/26 16 :34:21 gisle Exp $
4
4
5
5
require LWP::MemberMixin;
6
6
@ISA = qw( LWP::MemberMixin) ;
7
- $VERSION = sprintf (" %d .%02d" , q$ Revision: 1.43 $ =~ / (\d +)\. (\d +)/ );
7
+ $VERSION = sprintf (" %d .%02d" , q$ Revision: 1.44 $ =~ / (\d +)\. (\d +)/ );
8
8
9
9
use strict;
10
10
use Carp ();
@@ -119,8 +119,6 @@ sub collect
119
119
if (defined ($max_size ) && $content_size > $max_size ) {
120
120
LWP::Debug::debug(" Aborting because size limit exceeded" );
121
121
$response -> push_header(" Client-Aborted" , " max_size" );
122
- # my $tot = $response->header("Content-Length") || 0;
123
- # $response->header("X-Content-Range", "bytes 0-$content_size/$tot");
124
122
last ;
125
123
}
126
124
}
@@ -142,8 +140,6 @@ sub collect
142
140
if (defined ($max_size ) && $content_size > $max_size ) {
143
141
LWP::Debug::debug(" Aborting because size limit exceeded" );
144
142
$response -> push_header(" Client-Aborted" , " max_size" );
145
- # my $tot = $response->header("Content-Length") || 0;
146
- # $response->header("X-Content-Range", "bytes 0-$content_size/$tot");
147
143
last ;
148
144
}
149
145
}
You can’t perform that action at this time.
0 commit comments