Removed usePrototype flag, its activated always now.

[gosa.git] / gosa-si / server / events / siTriggered.pm

diff --git a/gosa-si/server/events/siTriggered.pm b/gosa-si/server/events/siTriggered.pm
index 530da9292f03c13183057b39a190b805a7a7f803..f190e15fee6f580d6f3f12b3cf0d184a36562bcb 100644 (file)
--- a/gosa-si/server/events/siTriggered.pm
+++ b/gosa-si/server/events/siTriggered.pm
@@ -1,22 +1,24 @@
 package siTriggered;
-use Exporter;
-@ISA = qw(Exporter);
-my @events = (
-    "got_ping",
-    "detected_hardware",
-    "trigger_wake",
-    "reload_ldap_config",
-       "get_terminal_server",
-    );
-@EXPORT = @events;
 
 use strict;
 use warnings;
+
+use Exporter;
 use Data::Dumper;
 use GOSA::GosaSupportDaemon;
 use Socket;
 
+our @ISA = qw(Exporter);
 
+my @events = (
+    "got_ping",
+    "detected_hardware",
+    "trigger_wake",
+    "reload_ldap_config",
+    "get_terminal_server",
+    );
+    
+our @EXPORT = @events;
 
 BEGIN {}
 
@@ -225,9 +227,9 @@ sub detected_hardware {
                #       $dnsname= $heap->{force-hostname}->{$macaddress};
                #       &main::daemon_log("INFO: Using forced hostname $dnsname for client $address", 4);
                if (-e "/var/tmp/$macaddress" ){
-                       open(TFILE, "< /var/tmp/$macaddress");
-                       $dnsname= <TFILE>;
-                       close(TFILE);
+                       open(my $TFILE, "<", "/var/tmp/$macaddress");
+                       $dnsname= <$TFILE>;
+                       close($TFILE);
                } else {
                        $dnsname= gethostbyaddr(inet_aton($ipaddress), AF_INET) || $ipaddress;
                }