projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 3.2.0
[debian/amanda]
/
perl
/
Amanda
/
IPC
/
LineProtocol.pm
diff --git
a/perl/Amanda/IPC/LineProtocol.pm
b/perl/Amanda/IPC/LineProtocol.pm
index 8918dcf11eef7342134b896d9118dd756624a74d..cc9b5d869eccab38420b44864dc5a56cff34cc9e 100644
(file)
--- a/
perl/Amanda/IPC/LineProtocol.pm
+++ b/
perl/Amanda/IPC/LineProtocol.pm
@@
-579,7
+579,8
@@
sub _async_read_cb {
# and process this data
$self->{'rx_buffer'} .= $data;
# and process this data
$self->{'rx_buffer'} .= $data;
- while (my ($line, $rest) = ($self->{'rx_buffer'} =~ /([^\n]*)\n(.*)/)) {
+ while ($self->{'rx_buffer'} =~ /\n/) {
+ my ($line, $rest) = split '\n', $self->{'rx_buffer'}, 2;
$self->{'rx_buffer'} = $rest;
$self->_incoming_line($line);
}
$self->{'rx_buffer'} = $rest;
$self->_incoming_line($line);
}