From: rettenbe Date: Fri, 14 Mar 2008 16:30:48 +0000 (+0000) Subject: bugfix: no multiple 'my' in clMessages.pm X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=7508a9c75dd09dd171abb349f4d88e6fc1cfba01;p=gosa.git bugfix: no multiple 'my' in clMessages.pm git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9877 594d385d-05f5-0310-b6e9-bd551577e9d8 --- diff --git a/gosa-si/server/events/clMessages.pm b/gosa-si/server/events/clMessages.pm index 5cc1a4ea0..fdb5a6388 100644 --- a/gosa-si/server/events/clMessages.pm +++ b/gosa-si/server/events/clMessages.pm @@ -224,7 +224,7 @@ sub GOTOACTIVATION { # test whether content is an empty hash or a string which is required ######### # testing - my $content = @{$msg_hash->{$header}}[0]; + my $content = @{$msg_hash->{$header}}[0]; if(ref($content) eq "HASH") { $content = ""; } #eval{ if( 0 == keys(%$content) ) { $content = ""; } }; #if( $@ ) { $content = "$content"; } @@ -251,8 +251,6 @@ sub PROGRESS { my $macaddress = @{$msg_hash->{'macaddress'}}[0]; # test whether content is an empty hash or a string which is required - my $content; - my $cont = @{$msg_hash->{$header}}[0]; # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann... ######### # testing @@ -284,7 +282,6 @@ sub FAIREBOOT { my $macaddress = @{$msg_hash->{'macaddress'}}[0]; # test whether content is an empty hash or a string which is required - my $content = @{$msg_hash->{$header}}[0]; # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann... ######### # testing @@ -316,7 +313,6 @@ sub TASKSKIP { my $macaddress = @{$msg_hash->{'macaddress'}}[0]; # test whether content is an empty hash or a string which is required - my $content = @{$msg_hash->{$header}}[0]; # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann... ######### # testing @@ -401,7 +397,6 @@ sub TASKEND { my $macaddress = @{$msg_hash->{'macaddress'}}[0]; # test whether content is an empty hash or a string which is required - my $content = @{$msg_hash->{$header}}[0]; # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann... ######### # testing @@ -442,7 +437,6 @@ sub TASKERROR { $header =~ s/CLMSG_//g; # test whether content is an empty hash or a string which is required - my $content = @{$msg_hash->{$header}}[0]; # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann... ######### # testing @@ -483,8 +477,6 @@ sub HOOK { $header =~ s/CLMSG_//g; # test whether content is an empty hash or a string which is required - my $content = @{$msg_hash->{$header}}[0]; - # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann... ######### # testing