X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FConnector%2FLocalSudo.pm;h=81868fc0ea536788da8d9aef68008286d68ec109;hp=044d1060d2a0421b703fd16b336eb2526a32bade;hb=052976d4a389b826a9551909492f3fc2f2312c88;hpb=c824fdf36c659b3b6dbafe23a3021f2b1d6eeb3f diff --git a/lib/Object/Remote/Connector/LocalSudo.pm b/lib/Object/Remote/Connector/LocalSudo.pm index 044d106..81868fc 100644 --- a/lib/Object/Remote/Connector/LocalSudo.pm +++ b/lib/Object/Remote/Connector/LocalSudo.pm @@ -1,5 +1,6 @@ package Object::Remote::Connector::LocalSudo; - + +use Object::Remote::Logging qw (:log :dlog); use Symbol qw(gensym); use Module::Runtime qw(use_module); use IPC::Open3; @@ -64,9 +65,6 @@ sub _start_perl { ->watch_io( handle => $sudo_stderr, on_read_ready => sub { - #TODO is there a specific reason sysread() and syswrite() aren't - #a part of ::MiniLoop? It's one spot to handle errors and other - #logic involving filehandles Dlog_debug { "LocalSudo: Preparing to read data from $_" } $sudo_stderr; if (sysread($sudo_stderr, my $buf, 32768) > 0) { log_trace { "LocalSudo: successfully read data, printing it to STDERR" };