diff options
author | Charles Bailey <BAILEY@newman.upenn.edu> | 1997-11-25 13:52:47 +1200 |
---|---|---|
committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1998-04-22 23:49:24 +0000 |
commit | bd974ce5350c6b632c1f3292346ec6469e27563b (patch) | |
tree | 9f0b27b02bde92c9726b27095c13d4e716041e08 | |
parent | 1d229fc1e9c6aabe2858ad9379a7d6e63126276e (diff) | |
download | perl-bd974ce5350c6b632c1f3292346ec6469e27563b.tar.gz |
chat2.pl fix
This patch came from one of the VMSPerlers, and seems generally
applicable.
p5p-msgid: 01IVMVF507PO001NKH@cor.newman.upenn.edu
-rw-r--r-- | lib/chat2.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/chat2.pl b/lib/chat2.pl index 0d9a7d3d50..094d3dff21 100644 --- a/lib/chat2.pl +++ b/lib/chat2.pl @@ -275,7 +275,9 @@ sub print { ## public if ($_[0] =~ /$nextpat/) { *S = shift; } - print S @_; + + local $out = join $, , @_; + syswrite(S, $out, length $out); if( $chat'debug ){ print STDERR "printed:"; print STDERR @_; |