|
Lines 3948-3956
Link Here
|
| 3948 |
# to reduce the likelyhood of a qmail bare-LF bug (bare LF reported |
3948 |
# to reduce the likelyhood of a qmail bare-LF bug (bare LF reported |
| 3949 |
# when CR and LF are separated by a TCP packet boundary) one may use |
3949 |
# when CR and LF are separated by a TCP packet boundary) one may use |
| 3950 |
# this 'while' line, reading line by line, instead of the normal one: |
3950 |
# this 'while' line, reading line by line, instead of the normal one: |
| 3951 |
### while (defined($_=$msg->getline)) { |
3951 |
while (defined($_=$msg->getline)) { |
| 3952 |
|
3952 |
|
| 3953 |
while ($msg->read($_, 16384) > 0) { |
3953 |
### while ($msg->read($_, 16384) > 0) { |
| 3954 |
$smtp_handle->datasend($_) |
3954 |
$smtp_handle->datasend($_) |
| 3955 |
or die "datasend timed out while sending body\n"; |
3955 |
or die "datasend timed out while sending body\n"; |
| 3956 |
} |
3956 |
} |
