diff options
-rwxr-xr-x | battery | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -1,8 +1,6 @@ -#!/home/dakkar/perl5/perlbrew/perls/perl-5.20.1/bin/perl -use lib '/home/dakkar/.perlbrew/libs/perl-5.20.1@dakkar/lib/perl5'; -use strict; -use warnings; -use 5.016; +#!/home/dakkar/perl5/perlbrew/perls/perl-5.40.0/bin/perl +use v5.40; +use lib '/home/dakkar/.perlbrew/libs/perl-5.40.0/lib/perl5'; use Gtk2 -init; my $window = Gtk2::Window->new('toplevel'); @@ -43,8 +41,7 @@ sub get_battery_stats { return \%ret; } -sub _format_time { - my ($t) = @_; +sub _format_time($t) { my $h=int($t); my $m=int(($t-$h)*60); return sprintf q{%dh%02d},$h,$m; |