summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbattery11
1 files changed, 4 insertions, 7 deletions
diff --git a/battery b/battery
index efce846..ea1b384 100755
--- a/battery
+++ b/battery
@@ -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;