From 99e41791de62318f4a05ab130fa3587dd578e63d Mon Sep 17 00:00:00 2001
From: opensides <opensides@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Sun, 28 Mar 2010 00:01:24 +0000
Subject: [PATCH] - Corrected open perl function, corrected variable passing to
 open and close

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@17326 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/server/events/logHandling.pm | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/gosa-si/server/events/logHandling.pm b/gosa-si/server/events/logHandling.pm
index 9fdce81d0..42af112bc 100644
--- a/gosa-si/server/events/logHandling.pm
+++ b/gosa-si/server/events/logHandling.pm
@@ -1,5 +1,15 @@
 package logHandling;
+
+
+use strict;
+use warnings;
+
 use Exporter;
+use GOSA::GosaSupportDaemon;
+use Data::Dumper;
+use File::Spec;
+use MIME::Base64;
+
 @ISA = qw(Exporter);
 my @events = (
     "get_events",
@@ -13,13 +23,6 @@ my @events = (
     );
 @EXPORT = @events;
 
-use strict;
-use warnings;
-use GOSA::GosaSupportDaemon;
-use Data::Dumper;
-use File::Spec;
-use MIME::Base64;
-
 BEGIN {}
 
 END {}
@@ -301,9 +304,9 @@ sub get_log_file_by_date_and_mac {
     
     # read log file
     my $log_content;
-    open(FILE, "<$act_log_file");
-    my @log_lines = <FILE>;
-    close(FILE);
+    open(my $FILE, "<", "$act_log_file");
+    my @log_lines = <$FILE>;
+    close($FILE);
 
     # prepare content for xml sending
     $log_content = join("", @log_lines); 
-- 
2.30.2