Changeset 10693

Timestamp:

04/28/08 23:50:03 (5 years ago)

Author:

yappo

Message:

read buf がなければ sysread しない

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Plugin/Interface/Standalone.pm (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Plugin/Interface/Standalone.pm

@@ -195 +195 @@
     }
 
-    sysread(Remote, my $buf, 4096); # IE bk
+    sysread(Remote, my $buf, 4096) if $sel->can_read(0); # IE bk
     close Remote;
 }