Bug 8227 Fix deprecated construct compile time warning in Serials

[koha.git] / about.pl

diff --git a/about.pl b/about.pl
index 249f245..7189a22 100755 (executable)
--- a/about.pl
+++ b/about.pl
@@ -118,14 +118,14 @@ $template->param( table => $table );
 
 #get file location
 my $dir = C4::Context->config('intranetdir');
-open( FILE, "$dir" . "/docs/history.txt" );
+open( my $file, "<", "$dir" . "/docs/history.txt" );
 my $i = 0;
 
 my @rows2 = ();
 my $row2  = [];
 
-my @lines = <FILE>;
-close(FILE);
+my @lines = <$file>;
+close($file);
 
 shift @lines; #remove header row