summaryrefslogtreecommitdiff
path: root/lib/App/XScreenSaver/DBus/Saver.pm
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2021-05-01 11:13:33 +0100
committerdakkar <dakkar@thenautilus.net>2021-05-01 11:13:33 +0100
commit88486719284e52c4573222ab7eb8d76d976e6b73 (patch)
treef59fca308d21abbdafe20b8eb41ca0c1c2cef056 /lib/App/XScreenSaver/DBus/Saver.pm
parentlower perl version requirement to 5.20 (diff)
downloadxscreensaver-dbus-88486719284e52c4573222ab7eb8d76d976e6b73.tar.gz
xscreensaver-dbus-88486719284e52c4573222ab7eb8d76d976e6b73.tar.bz2
xscreensaver-dbus-88486719284e52c4573222ab7eb8d76d976e6b73.zip
quiet calls to xscreensaver-command
Diffstat (limited to 'lib/App/XScreenSaver/DBus/Saver.pm')
-rw-r--r--lib/App/XScreenSaver/DBus/Saver.pm12
1 files changed, 10 insertions, 2 deletions
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;