Fixed dialog ignore account state

[gosa.git] / gosa-si / modules / ClientPackages.pm

diff --git a/gosa-si/modules/ClientPackages.pm b/gosa-si/modules/ClientPackages.pm
index 8fc6318bcf69b87dfd021adf2558e858c0eed3e4..f714cd46608c47190ce216a4742670e9586fe968 100644 (file)
--- a/gosa-si/modules/ClientPackages.pm
+++ b/gosa-si/modules/ClientPackages.pm
@@ -16,7 +16,7 @@ use Net::LDAP::Util;
 use Socket;
 use Net::hostent;
 
-@ISA = ("Exporter");
+our @ISA = ("Exporter");
 
 my $event_dir = "/usr/lib/gosa-si/server/ClientPackages";
 use lib "/usr/lib/gosa-si/server/ClientPackages";
@@ -452,7 +452,7 @@ sub here_i_am {
     if ( defined($msg_hash->{'force-hostname'}[0]) &&
        length($msg_hash->{'force-hostname'}[0]) > 0){
     #      $heap->{force-hostname}->{$mac_address}= $msg_hash->{'force-hostname'}[0];
-           open ($TFILE, ">", "/var/tmp/$mac_address");
+           open (my $TFILE, ">", "/var/tmp/$mac_address");
            print $TFILE $msg_hash->{'force-hostname'}[0];
            close ($TFILE); 
     } else {
@@ -1082,7 +1082,7 @@ sub server_matches {
                } else {
                        my $PROC_NET_ROUTE= ('/proc/net/route');
 
-                       open($FD_PROC_NET_ROUTE, "<", "$PROC_NET_ROUTE")
+                       open(my $FD_PROC_NET_ROUTE, "<", "$PROC_NET_ROUTE")
                                or die "Could not open $PROC_NET_ROUTE";
 
                        my @ifs = <$FD_PROC_NET_ROUTE>;