X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=about.pl;h=7189a229c14b88bbdcc95cef969709a6686b4f76;hb=72f91afd9c7871b706d553cfbadf23d4f6db7e02;hp=249f2454641c89ea7d4de8af3dd39b9a5a3956ac;hpb=6bc414a3d418cd5255a178271207121f3cb9878a;p=koha_gimpoz

diff --git a/about.pl b/about.pl
index 249f245464..7189a229c1 100755
--- 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