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

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@17317 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/client/events/installation.pm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/gosa-si/client/events/installation.pm b/gosa-si/client/events/installation.pm
index 9a5fa786a..700adc5a1 100644
--- a/gosa-si/client/events/installation.pm
+++ b/gosa-si/client/events/installation.pm
@@ -1,13 +1,15 @@
 package installation;
-use Exporter;
-@ISA = qw(Exporter);
-my @events = qw(get_events set_activated_for_installation);
-@EXPORT = @events;
 
 use strict;
 use warnings;
+
+use Exporter;
 use Fcntl;
 
+@ISA = qw(Exporter);
+my @events = qw(get_events set_activated_for_installation);
+@EXPORT = @events;
+
 BEGIN {}
 
 END {}
@@ -26,9 +28,9 @@ sub set_activated_for_installation {
     my $source = @{$msg_hash->{'source'}}[0];
 
     my $Datei = "/var/run/gosa-si-client.activated";
-    open(DATEI, ">$Datei");
-    print DATEI "$msg\n";
-    close DATEI;
+    open($FILE, ">", "$Datei");
+    print $FILE "$msg\n";
+    close $FILE;
 
     return;
 }
-- 
2.30.2