From 2f2db352524b75565fa145d75cdc32531f46fab8 Mon Sep 17 00:00:00 2001
From: opensides <opensides@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Sun, 28 Mar 2010 00:02:49 +0000
Subject: [PATCH] - 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
---
 gosa-si/server/events/mailqueue_com.pm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/gosa-si/server/events/mailqueue_com.pm b/gosa-si/server/events/mailqueue_com.pm
index d464db371..d788716a1 100644
--- 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 {}
 
-- 
2.30.2