eval $cases; die "$cases:\n$@" if $@;
}
$eof = $timeout = 0;
- &$subname();
+ do $subname();
}
## &chat'print([$handle,] @data)
if ($_[0] =~ /$nextpat/) {
*S = shift;
}
- print S @_;
+
+ local $out = join $, , @_;
+ syswrite(S, $out, length $out);
if( $chat'debug ){
print STDERR "printed:";
print STDERR @_;