X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=installer%2Fexternalmodules.pl;h=f836ccf023e25356fe01039766f64601c50f87ac;hb=fc655ca979b733208236981a8cd90430a13b30c5;hp=0d338abf46d02f034bcb72bafa1393c9eabdabdd;hpb=20a38ee50e6fe62712e299bcec9e939dc2bbb58e;p=koha-ffzg.git

diff --git a/installer/externalmodules.pl b/installer/externalmodules.pl
index 0d338abf46..f836ccf023 100755
--- a/installer/externalmodules.pl
+++ b/installer/externalmodules.pl
@@ -12,9 +12,9 @@ qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >/tmp/modulesKoha.log);
 $dir=C4::Context->config('opacdir');
 qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >>/tmp/modulesKoha.log);
 
-open FILE, "< /tmp/modulesKoha.log" ||die "unable to open file /tmp/modulesKoha.log";
+open my $fh, '<', '/tmp/modulesKoha.log' ||die "unable to open file /tmp/modulesKoha.log";
 my %modulehash;
-while (my $line=<FILE>){
+while (my $line=<$fh>){
   if ( $line=~m#(.*)\:\s*use\s+([A-Z][^\s;]+)# ){
     my ($file,$module)=($1,$2);
     my @filename = split /\//, $file;
@@ -23,5 +23,5 @@ while (my $line=<FILE>){
 }
 print "external modules used in Koha ARE :\n";
 map {print "* $_ \t in files ",join (",",@{$modulehash{$_}}),"\n" } sort keys %modulehash;
-close FILE;
+close $fh;
 unlink "/tmp/modulesKoha.log";