From 8d443ea2e39e912f36342e0f00513c98c1297835 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sat, 1 May 2021 10:57:04 +0100 Subject: lower perl version requirement to 5.20 --- lib/App/XScreenSaver/DBus.pm | 3 ++- lib/App/XScreenSaver/DBus/InhibitSleep.pm | 3 ++- lib/App/XScreenSaver/DBus/Saver.pm | 3 ++- lib/App/XScreenSaver/DBus/SaverProxy.pm | 3 ++- scripts/xscreensaver-dbus | 1 + 5 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lib/App/XScreenSaver/DBus.pm b/lib/App/XScreenSaver/DBus.pm index c8b6cf5..2ab384a 100644 --- a/lib/App/XScreenSaver/DBus.pm +++ b/lib/App/XScreenSaver/DBus.pm @@ -1,6 +1,7 @@ package App::XScreenSaver::DBus; +use v5.20; use Moo; -use experimental 'signatures'; +use experimental qw(signatures postderef); use Net::DBus::Reactor; use Log::Any; use App::XScreenSaver::DBus::InhibitSleep; diff --git a/lib/App/XScreenSaver/DBus/InhibitSleep.pm b/lib/App/XScreenSaver/DBus/InhibitSleep.pm index b419f50..ce205a7 100644 --- a/lib/App/XScreenSaver/DBus/InhibitSleep.pm +++ b/lib/App/XScreenSaver/DBus/InhibitSleep.pm @@ -1,6 +1,7 @@ package App::XScreenSaver::DBus::InhibitSleep; +use v5.20; use Moo; -use experimental 'signatures'; +use experimental qw(signatures postderef); use curry; use Net::DBus; use Log::Any; diff --git a/lib/App/XScreenSaver/DBus/Saver.pm b/lib/App/XScreenSaver/DBus/Saver.pm index 369e8bd..9d30abd 100644 --- a/lib/App/XScreenSaver/DBus/Saver.pm +++ b/lib/App/XScreenSaver/DBus/Saver.pm @@ -1,6 +1,7 @@ package App::XScreenSaver::DBus::Saver; +use v5.20; use Moo; -use experimental 'signatures'; +use experimental qw(signatures postderef); use curry; use Log::Any; use Try::Tiny; diff --git a/lib/App/XScreenSaver/DBus/SaverProxy.pm b/lib/App/XScreenSaver/DBus/SaverProxy.pm index f4773bc..858dcba 100644 --- a/lib/App/XScreenSaver/DBus/SaverProxy.pm +++ b/lib/App/XScreenSaver/DBus/SaverProxy.pm @@ -1,7 +1,8 @@ package App::XScreenSaver::DBus::SaverProxy; +use v5.20; use strict; use warnings; -use experimental 'signatures'; +use experimental qw(signatures postderef); # this is the interface name use Net::DBus::Exporter qw(org.freedesktop.ScreenSaver); use parent 'Net::DBus::Object'; diff --git a/scripts/xscreensaver-dbus b/scripts/xscreensaver-dbus index 98e61c9..a48334c 100755 --- a/scripts/xscreensaver-dbus +++ b/scripts/xscreensaver-dbus @@ -1,6 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; +use v5.20; use Log::Any::Adapter Stdout => ( log_level => 'debug' ); use App::XScreenSaver::DBus; # VERSION -- cgit v1.2.3