make perlcritic happy

Signed-off-by: Anton Fischl <[email protected]>
antonfischl1980 · Apr 1, 2022 · 8774004 · 8774004
1 parent dff3eb3
commit 8774004
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/check_portage_age.pl b/check_portage_age.pl
@@ -85,10 +85,10 @@ END
     $np->nagios_die("Unable to identify portdir");
 }
 
-open TIMESTAMP, ($portdir . "/metadata/timestamp.chk")
+open my $TIMESTAMP_FH, "<:encoding(UTF-8)", ($portdir . "/metadata/timestamp.chk")
     or $np->nagios_die("Unable to open $portdir/metadata/timestamp.chk");
-chomp(my $timestamp_str = readline(TIMESTAMP));
-close(TIMESTAMP);
+chomp(my $timestamp_str = readline($TIMESTAMP_FH));
+close($TIMESTAMP_FH);
 
 my $timestamp = str2time($timestamp_str);
 my $difference = time() - $timestamp;