Change 28510 by [EMAIL PROTECTED] on 2006/07/08 17:51:43
Subject: [PATCH] perl5db.pl: read full lines from remote socket
From: Brendan O'Dea <[EMAIL PROTECTED]>
Date: Sat, 8 Jul 2006 13:27:50 +1000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/perl5db.pl#119 edit
Differences ...
==== //depot/perl/lib/perl5db.pl#119 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#118~25868~ 2005-10-28 16:38:35.000000000 -0700
+++ perl/lib/perl5db.pl 2006-07-08 10:51:43.000000000 -0700
@@ -6354,9 +6354,13 @@
$OUT->write( join( '', @_ ) );
# Receive anything there is to receive.
- my $stuff;
- $IN->recv( $stuff, 2048 ); # XXX "what's wrong with sysread?"
- # XXX Don't know. You tell me.
+ $stuff;
+ my $stuff = '';
+ my $buf;
+ do {
+ $IN->recv( $buf = '', 2048 ); # XXX "what's wrong with sysread?"
+ # XXX Don't know. You tell me.
+ } while length $buf and ($stuff .= $buf) !~ /\n/;
# What we got.
$stuff;
End of Patch.
