summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-04-18 19:04:33 -0500
committerJesse Luehrs <doy@tozt.net>2010-04-18 19:04:33 -0500
commit028486526465f344cbc60ab01f7612ecacaaa9f8 (patch)
tree5e9f68416d5460630a31fe96657e90c6478bf27a
parent39edf6c5df65950e7257e855cdac792a55bc07d5 (diff)
downloadapp-termcast-028486526465f344cbc60ab01f7612ecacaaa9f8.tar.gz
app-termcast-028486526465f344cbc60ab01f7612ecacaaa9f8.zip
syswrite on the socket, for consistency
-rw-r--r--lib/App/Termcast.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm
index a4268df..5b687e5 100644
--- a/lib/App/Termcast.pm
+++ b/lib/App/Termcast.pm
@@ -135,7 +135,7 @@ sub _build_socket {
PeerPort => $self->port);
die "Couldn't connect to " . $self->host . ": $!"
unless $socket;
- $socket->write('hello '.$self->user.' '.$self->password."\n");
+ $socket->syswrite('hello '.$self->user.' '.$self->password."\n");
return $socket;
}
@@ -215,7 +215,7 @@ sub write_to_termcast {
$self->clear_socket;
return $self->socket_write(@_);
}
- $self->socket->write($buf);
+ $self->socket->syswrite($buf);
}
=head2 run @ARGV