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

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

diff --git a/gosa-si/server/events/mailqueue_com.pm b/gosa-si/server/events/mailqueue_com.pm
index d464db3710da39c6e7bcc6d891c9929a5680d5a2..d788716a119f353b65da8b7876c08a3e0632a1ee 100644 (file)
--- a/gosa-si/server/events/mailqueue_com.pm
+++ b/gosa-si/server/events/mailqueue_com.pm
@@ -21,22 +21,23 @@ be automatically imported by GOsa-SI if it is under F</usr/lib/gosa-si/server/E<
 =cut
 
 package mailqueue_com;
-use Exporter;
-@ISA = qw(Exporter);
-my @events = (
-    "get_events",
-    "mailqueue_query",
-    "mailqueue_header",
-);
-@EXPORT = @events;
 
 use strict;
 use warnings;
+
+use Exporter;
 use GOSA::GosaSupportDaemon;
 use Data::Dumper;
 use Time::HiRes qw( usleep);
 use MIME::Base64;
 
+@ISA = qw(Exporter);
+my @events = (
+    "get_events",
+    "mailqueue_query",
+    "mailqueue_header",
+);
+@EXPORT = @events;
 
 BEGIN {}