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;
 
-    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);
     }