From 88486719284e52c4573222ab7eb8d76d976e6b73 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 1 May 2021 11:13:33 +0100
Subject: quiet calls to xscreensaver-command

---
 lib/App/XScreenSaver/DBus/Saver.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'lib/App/XScreenSaver/DBus/Saver.pm')

diff --git a/lib/App/XScreenSaver/DBus/Saver.pm b/lib/App/XScreenSaver/DBus/Saver.pm
index 9d30abd..6c3e761 100644
--- a/lib/App/XScreenSaver/DBus/Saver.pm
+++ b/lib/App/XScreenSaver/DBus/Saver.pm
@@ -5,6 +5,7 @@ use experimental qw(signatures postderef);
 use curry;
 use Log::Any;
 use Try::Tiny;
+use IPC::Run;
 use App::XScreenSaver::DBus::SaverProxy;
 # VERSION
 # ABSTRACT: implements the "idle inhibition" protocol
@@ -125,7 +126,7 @@ sub start($self) {
 
     $self->_prod_id(
         $self->reactor->add_timeout(
-            60_000,
+            5_000,
             Net::DBus::Callback->new(
                 method => $self->curry::weak::_prod_screensaver
             ),
@@ -206,7 +207,14 @@ sub _name_owner_changed($self,$bus_name,$old,$new) {
 
 sub _prod_screensaver($self) {
     $self->log->debug('prodding xscreensaver');
-    system(qw(xscreensaver-command -deactivate));
+    my ($out, $err);
+    IPC::Run::run(
+        [qw(xscreensaver-command -deactivate)],
+        \undef, \$out, \$err,
+    );
+    $self->log->tracef('xscreensaver-command -deactivate said <%s>',$out);
+    $self->log->warnf('xscreensaver-command -deactivate errored <%s>',$err)
+        if $err;
 }
 
 1;
-- 
cgit v1.2.3