From 44e3b392f8192d4bf4e8e4067bd65e8a7f5c871f Mon Sep 17 00:00:00 2001 From: neingeist Date: Sat, 13 Sep 2014 14:06:44 +0200 Subject: [PATCH] make perlcritic happier --- conky-fedora-kernel | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/conky-fedora-kernel b/conky-fedora-kernel index cad67cb..d8c65b6 100755 --- a/conky-fedora-kernel +++ b/conky-fedora-kernel @@ -1,5 +1,6 @@ #!/usr/bin/perl -use v5.10; +use 5.010; +use utf8; use strict; use warnings; use Carp; @@ -20,7 +21,7 @@ sub booted_kernel { sub installed_kernels { my $installed_kernels = `rpm --query --queryformat='%{VERSION}-%{RELEASE}.%{ARCH}\n' kernel`; chomp($installed_kernels); - my @installed_kernels = split /\n/s, $installed_kernels; + my @installed_kernels = split /\n/sx, $installed_kernels; return @installed_kernels; } @@ -36,6 +37,6 @@ my $booted_kernel = booted_kernel(); my $latest_installed_kernel = latest_installed_kernel(); if ($booted_kernel ne $latest_installed_kernel) { - say "\$\{color $color_header\}KERNEL\$color"; - say " \$\{color $color_warn\}REBOOT INTO $latest_installed_kernel\$color"; + say "\${color $color_header}KERNEL\$color"; + say " \${color $color_warn}REBOOT INTO $latest_installed_kernel\$color"; }