Author: arkurth
Date: Mon May 22 21:09:09 2017
New Revision: 1795854

URL: http://svn.apache.org/viewvc?rev=1795854&view=rev
Log:
VCL-1040
Removed *_inuse_check keys from DataStructure.pm's %SUBROUTINE_MAPPINGS 
variable. They were not being used and get_cluster_inuse_check would never work 
as written because of case inconsistency.

Other
Removed inclusion of a potential argument from a notify() call in 
DataStructure.pm::automethod. It may not be defined.

Modified:
    vcl/trunk/managementnode/lib/VCL/DataStructure.pm

Modified: vcl/trunk/managementnode/lib/VCL/DataStructure.pm
URL: 
http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/DataStructure.pm?rev=1795854&r1=1795853&r2=1795854&view=diff
==============================================================================
--- vcl/trunk/managementnode/lib/VCL/DataStructure.pm (original)
+++ vcl/trunk/managementnode/lib/VCL/DataStructure.pm Mon May 22 21:09:09 2017
@@ -514,10 +514,6 @@ $SUBROUTINE_MAPPINGS{management_node_pre
 $SUBROUTINE_MAPPINGS{management_node_predictive_module_description} = 
'$ENV{management_node_info}{predictive_description}';
 $SUBROUTINE_MAPPINGS{management_node_predictive_module_perl_package} = 
'$ENV{management_node_info}{predictive_perlpackage}';
 
-$SUBROUTINE_MAPPINGS{general_inuse_check} = 
'$ENV{management_node_info}{GENERAL_INUSE_CHECK}';
-$SUBROUTINE_MAPPINGS{server_inuse_check} = 
'$ENV{management_node_info}{SERVER_INUSE_CHECK}';
-$SUBROUTINE_MAPPINGS{cluster_inuse_check} = 
'$ENV{management_node_info}{cluster_INUSE_CHECK}';
-
 $SUBROUTINE_MAPPINGS{subroutine_mappings} = '\%SUBROUTINE_MAPPINGS';
 
 ###############################################################################
@@ -887,7 +883,7 @@ sub _automethod : Automethod {
                        # If no argument was specified get_management_node_info 
will return data for this management node
                        my $management_node_info_retrieved = 
get_management_node_info($args[0]);
                        unless ($management_node_info_retrieved) {
-                               notify($ERRORS{'WARNING'}, 0, "failed to 
retrieve data for management node: $args[0]");
+                               notify($ERRORS{'WARNING'}, 0, "failed to 
retrieve data for management node");
                                return sub { };
                        }
                        


Reply via email to