bin/battery.pl: Add checks and correct exit code.

diff --git a/bin/battery.pl b/bin/battery.pl
index 6a9ce2cbb21f55c1799cf6bbfc7cfee04fa0d4aa..407e0bcd178c7c27c465db9a22b3a152320f594c 100755 (executable)
--- a/bin/battery.pl
+++ b/bin/battery.pl
@@ -9,7 +9,7 @@ my $path = '/sys/class/power_supply/BAT0/uevent';
 
 # No battery available.
 if (! -e $path) {
-    exit;
+    exit 1;
 }
 
 my $screen_mode = (defined $ARGV[0] and $ARGV[0] eq '-s');
@@ -17,7 +17,7 @@ my $tmux_mode   = (defined $ARGV[0] and $ARGV[0] eq '-t');
 
 my %battery;
 
-open my $file, '<', $path;
+open my $file, '<', $path or die $!;
 while (<$file>) {
     /^POWER_SUPPLY_([A-Z_]+)=(.+)$/;
     $battery{$1} = $2;