From: erickson Date: Tue, 8 Aug 2006 21:32:53 +0000 (+0000) Subject: testing multi-message fix in parser X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3bbd1bde8c788fcabb2846228332687f27d75911;p=evergreen%2Fpines.git testing multi-message fix in parser git-svn-id: svn://svn.open-ils.org/ILS/trunk@5385 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm b/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm index e646fc12b0..b90e172d71 100644 --- a/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm +++ b/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm @@ -194,7 +194,7 @@ sub timed_read { my ($tag) = ($buffer =~ /<([^\s\?\>]+)/o); $logger->transport("Using tag: $tag ", INTERNAL); - if ( $buffer =~ /^(.*?<\/$tag>)(.*)/s) { + if ( $buffer =~ /^(.*?<\/$tag>){1}(.*)/s) { $buffer = $1; $self->{temp_buffer} = $2; $complete++;