neingeist/conky-gadgets
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

make perlcritic happier

Browse source
This commit is contained in:
neingeist 2014-09-13 14:06:44 +02:00
parent 3605497b8f
commit 44e3b392f8
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
conky-fedora-kernel
View file

@ -1,5 +1,6 @@
#!/usr/bin/perl #!/usr/bin/perl
use v5.10; use 5.010;
use utf8;
use strict; use strict;
use warnings; use warnings;
use Carp; use Carp;
@ -20,7 +21,7 @@ sub booted_kernel {
sub installed_kernels { sub installed_kernels {
my $installed_kernels = `rpm --query --queryformat='%{VERSION}-%{RELEASE}.%{ARCH}\n' kernel`; my $installed_kernels = `rpm --query --queryformat='%{VERSION}-%{RELEASE}.%{ARCH}\n' kernel`;
chomp($installed_kernels); chomp($installed_kernels);
my @installed_kernels = split /\n/s, $installed_kernels; my @installed_kernels = split /\n/sx, $installed_kernels;
return @installed_kernels; return @installed_kernels;
} }
@ -36,6 +37,6 @@ my $booted_kernel = booted_kernel();
my $latest_installed_kernel = latest_installed_kernel(); my $latest_installed_kernel = latest_installed_kernel();
if ($booted_kernel ne $latest_installed_kernel) { if ($booted_kernel ne $latest_installed_kernel) {
say "\$\{color $color_header\}KERNEL\$color"; say "\${color $color_header}KERNEL\$color";
say " \$\{color $color_warn\}REBOOT INTO $latest_installed_kernel\$color"; say " \${color $color_warn}REBOOT INTO $latest_installed_kernel\$color";
} }