added a comment

[OpenSRF.git] / src / perlmods / OpenSRF / Transport / SlimJabber / Client.pm

diff --git a/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm b/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm
index 81c75f7..e2374f4 100644 (file)
--- a/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm
+++ b/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm
@@ -269,8 +269,11 @@ sub timed_read {
                                        }
 
                                        # XXX Change me to debug/internal at some point, this is for testing...
+                                       # XXX Found a race condition where reading >= $read_size bytes of data
+                                       # will fail if the log line below is removed.
                                        $logger->info("timed_read() read $n bytes of data");
 
+
                                        $buffer .= $t_buf;
                                        if( $n < $read_size ) {
                                                #reset_fl( $fh, $f ) if $f;