bin/*.pl: Add missing die to close.

[config/dotfiles.git] / bin / battery.pl

diff --git a/bin/battery.pl b/bin/battery.pl
index 41956ac43fb431dd9862d45a08e1a38ed5e56882..9a6a9760b1705652953d0c40d454937538aefd62 100755 (executable)
--- a/bin/battery.pl
+++ b/bin/battery.pl
@@ -37,7 +37,7 @@ while (<$file>) {
     /^POWER_SUPPLY_([A-Z_]+)=(.+)$/;
     $battery{$1} = $2;
 }
-close $file;
+close $file or die $!;
 
 my $charge = int($battery{CHARGE_NOW} / $battery{CHARGE_FULL} * 100);