support check: Style improvements - rename _check_for_command

Put an underscore in front.  This is not a public method.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/Osstest/Toolstack/libvirt.pm b/Osstest/Toolstack/libvirt.pm
index 2ee8b3c3c969bbb80372ea77f68a0af53678cbcb..45df1734aa208ebf3d8539bc2a53e4f15b9767d5 100644 (file)
--- a/Osstest/Toolstack/libvirt.pm
+++ b/Osstest/Toolstack/libvirt.pm
@@ -99,7 +99,7 @@ sub migrate_check ($$) {
        ('/capabilities/host/migration_features/live');
 }
 
-sub check_for_command($$) {
+sub _check_for_command($$) {
     my ($self,$cmd) = @_;
     my $ho = $self->{Host};
     my $help = target_cmd_output_root($ho, "virsh help");
@@ -110,7 +110,7 @@ sub saverestore_check ($) {
     my ($self) = @_;
     return
        _check_capability($self, '/capabilities/host/migration_features') &&
-       check_for_command($self, "save");
+       _check_for_command($self, "save");
 }
 
 sub migrate ($$$$) {

diff --git a/Osstest/Toolstack/xl.pm b/Osstest/Toolstack/xl.pm
index 6a4a5d790c7364a3359f55a58b0010b0617da414..e179217c83cba1fd7c783c115e823c7c4ec4e823 100644 (file)
--- a/Osstest/Toolstack/xl.pm
+++ b/Osstest/Toolstack/xl.pm
@@ -61,7 +61,7 @@ sub shutdown_wait ($$$) {
     target_cmd_root($ho,"$self->{_Command} shutdown -w${acpi_fallback} $gn", $timeout);
 }
 
-sub check_for_command($$) {
+sub _check_for_command($$) {
     my ($self,$cmd) = @_;
     my $ho = $self->{Host};
     my $help = target_cmd_output_root($ho, $self->{_Command}." help");
@@ -70,12 +70,12 @@ sub check_for_command($$) {
 
 sub migrate_check ($$) {
     my ($self,$local) = @_;
-    return check_for_command($self, "migrate");
+    return _check_for_command($self, "migrate");
 }
 
 sub saverestore_check ($) {
     my ($self) = @_;
-    return check_for_command($self, "save");
+    return _check_for_command($self, "save");
 }
 
 sub migrate ($$$$) {