120 |
|
|
121 |
do { |
do { |
122 |
|
|
123 |
warn "get chunk len\n" if $self->debug; |
warn "get chunk len\n" if $self->debug > 1; |
124 |
|
|
125 |
my $hex; |
my $hex; |
126 |
do { |
do { |
131 |
die "chunk size not valid hex: $hex" unless ( $hex =~ m/^[0-9a-f]+$/i); |
die "chunk size not valid hex: $hex" unless ( $hex =~ m/^[0-9a-f]+$/i); |
132 |
$len = hex( $hex ); |
$len = hex( $hex ); |
133 |
|
|
134 |
warn "getting chunk of $len bytes\n" if $self->debug; |
warn "getting chunk of $len bytes\n" if $self->debug > 1; |
135 |
|
|
136 |
$sock->read( my $buff, $len ); |
$sock->read( my $buff, $len ); |
137 |
$chunk .= $buff; |
$chunk .= $buff; |
138 |
|
|
139 |
warn "--- $len bytes: --=>||$buff||<=--\n" if $self->debug; |
warn "--- $len bytes: --=>||$buff||<=--\n" if $self->debug > 1; |
140 |
|
|
141 |
} while ( $len > 0 ); |
} while ( $len > 0 ); |
142 |
my $sep = $sock->getline; |
my $sep = $sock->getline; |
172 |
|
|
173 |
} else { |
} else { |
174 |
$state = $self->state; |
$state = $self->state; |
175 |
warn "last request state = ", dump( $state ), "\n"; |
warn "last request state = ", dump( $state ), "\n" if $self->debug > 1; |
176 |
} |
} |
177 |
|
|
178 |
|
|