- Corrected open perl function, corrected variable passing to open and close

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@17329 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/server/events/server_server_com.pm b/gosa-si/server/events/server_server_com.pm
index b13762622b03e620a5d5c24c0b1bb3c38f7784f7..6a73b077757268035b033c815d5f1dd4f7292956 100644 (file)
--- a/gosa-si/server/events/server_server_com.pm
+++ b/gosa-si/server/events/server_server_com.pm
@@ -1,5 +1,14 @@
 package server_server_com;
+
+use strict;
+use warnings;
+
 use Exporter;
+use Data::Dumper;
+use GOSA::GosaSupportDaemon;
+use Time::HiRes qw( usleep);
+use Socket;
+
 @ISA = qw(Exporter);
 my @events = (
     'information_sharing',
@@ -12,14 +21,6 @@ my @events = (
     );
 @EXPORT = @events;
 
-use strict;
-use warnings;
-use Data::Dumper;
-use GOSA::GosaSupportDaemon;
-use Time::HiRes qw( usleep);
-use Socket;
-
-
 BEGIN {}
 
 END {}