- 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

diff --git a/gosa-si/client/events/installation.pm b/gosa-si/client/events/installation.pm
index 9a5fa786ad1f8f9620320b81521b94a21ea5a3a7..700adc5a193870f0eaf93fa0ff17b122f0503931 100644 (file)
--- 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;
 }