Check to make sure that InstallManager.pm has loaded before using functions from it.

diff --git a/lib/App/BCVI/AutoInstall.pm b/lib/App/BCVI/AutoInstall.pm
index 630a8c06a2d37e5b4b7e976dfef51389f4ad0933..6740ea8c255a974ff7c674a9ff33a8a9c7493f4b 100644 (file)
--- a/lib/App/BCVI/AutoInstall.pm
+++ b/lib/App/BCVI/AutoInstall.pm
@@ -3,16 +3,18 @@ package App::BCVI::AutoInstall;
 use warnings;
 use strict;
 
-use App::BCVI::InstallManager;
-
 our $VERSION = '0.1';
 
 sub execute_wrapped_ssh {
     my ($self, $target, @args) = @_;
 
-    my $sig = $self->get_install_signature($target);
-    if (! defined $sig) {
-      $self->install_to_host($target);
+    if ($self->can("get_install_signature")) {
+        my $sig = $self->get_install_signature($target);
+        if (! defined $sig) {
+          $self->install_to_host($target);
+        }
+    } else {
+        warn "App::BCVI::AutoInstall can only function if App::BCVI::InstallManager is installed.\n";
     }
     $self->SUPER::execute_wrapped_ssh($target, @args);
 }