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

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);
 

diff --git a/bin/temperature.pl b/bin/temperature.pl
index 9ee40cd64c2cd182b3238ec047cfba2ab59195ce..0063bf4ffb510aebf23faa243c6313c69b834ff0 100755 (executable)
--- a/bin/temperature.pl
+++ b/bin/temperature.pl
@@ -37,10 +37,10 @@ my $critical;
 my $file;
 open $file, '<', $temperature_path or die $!;
 $temperature = <$file>;
-close $file;
+close $file or die $!;
 open $file, '<', $critical_path or die $!;
 $critical = <$file>;
-close $file;
+close $file or die $!;
 
 my $value = int($temperature / 1000);
 my $risk  = ($critical - $temperature)/$critical;