From 35ac3605fdc040ab87fffb344a524fad7e6afad1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 25 Feb 2012 16:16:33 -0600
Subject: update for retry_select api

---
 lib/App/Termcast.pm | 5 +++--
 1 file 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)) {
-- 
cgit v1.2.3-54-g00ecf