diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-02-25 16:16:33 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-02-25 16:16:33 -0600 |
| commit | 35ac3605fdc040ab87fffb344a524fad7e6afad1 (patch) | |
| tree | 42f17a90cf4243000e085480f79274cf572593bc | |
| parent | a334f1e8441d26b8322c35a6148694540d1d908e (diff) | |
| download | app-termcast-35ac3605fdc040ab87fffb344a524fad7e6afad1.tar.gz app-termcast-35ac3605fdc040ab87fffb344a524fad7e6afad1.zip | |
update for retry_select api
| -rw-r--r-- | lib/App/Termcast.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm index ee458bd..22f8d2f 100644 --- a/lib/App/Termcast.pm +++ b/lib/App/Termcast.pm @@ -190,7 +190,7 @@ sub _build_socket { # ensure the server accepted our connection info { - my ($rout, $eout) = retry_select('r', undef, $socket); + my ($rout, $eout) = retry_select($socket); if (vec($eout, fileno($socket), 1)) { Carp::croak("Invalid password"); @@ -293,7 +293,8 @@ sub write_to_termcast { my $socket = $self->socket; my ($wout, $eout) = retry_select( - 'w', $self->timeout, $socket + { mode => 'w', timeout => $self->timeout }, + $socket, ); if (!vec($wout, fileno($socket), 1) || vec($eout, fileno($socket), 1)) { |