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

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

diff --git a/gosa-si/server/events/opsi_com.pm b/gosa-si/server/events/opsi_com.pm
index 1c67f577ebc560c2431e0fa66769340aff23278f..f1c1fcd975274d24c441dbf96141acd9799b27bb 100644 (file)
--- a/gosa-si/server/events/opsi_com.pm
+++ b/gosa-si/server/events/opsi_com.pm
@@ -4,8 +4,15 @@
 
 
 package opsi_com;
+
+use strict;
+use warnings;
+
 use Exporter;
 use UNIVERSAL 'isa';
+use GOSA::GosaSupportDaemon;
+use Data::Dumper;
+use XML::Quote qw(:all);
 
 @ISA = qw(Exporter);
 my @events = (
@@ -46,11 +53,6 @@ my @events = (
    );
 @EXPORT = @events;
 
-use strict;
-use warnings;
-use GOSA::GosaSupportDaemon;
-use Data::Dumper;
-use XML::Quote qw(:all);
 
 BEGIN {}