diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/chat2.pl')
| -rw-r--r-- | gnu/usr.bin/perl/lib/chat2.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/lib/chat2.pl b/gnu/usr.bin/perl/lib/chat2.pl index 0d9a7d3d503..094d3dff21a 100644 --- a/gnu/usr.bin/perl/lib/chat2.pl +++ b/gnu/usr.bin/perl/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 @_; |