testing multi-message fix in parser
authorerickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Tue, 8 Aug 2006 21:32:53 +0000 (21:32 +0000)
committererickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Tue, 8 Aug 2006 21:32:53 +0000 (21:32 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@755 9efc2488-bf62-4759-914b-345cdb29e865

src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm

index e646fc1..b90e172 100644 (file)
@@ -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++;