From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Tue, 7 Sep 2010 00:24:15 +0000 (+1200)
Subject: Update to wrap new functions in bcvi.
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2c5fad13f22c3daa5d4f693fc1775292535a35ca;p=app-bcvi-autoinstall.git

Update to wrap new functions in bcvi.
---

diff --git a/lib/App/BCVI/AutoInstall.pm b/lib/App/BCVI/AutoInstall.pm
index 6de81e5..630a8c0 100644
--- a/lib/App/BCVI/AutoInstall.pm
+++ b/lib/App/BCVI/AutoInstall.pm
@@ -7,14 +7,14 @@ use App::BCVI::InstallManager;
 
 our $VERSION = '0.1';
 
-sub wrap_ssh {
-    my ($self, @args_in) = @_;
+sub execute_wrapped_ssh {
+    my ($self, $target, @args) = @_;
 
-    my $sig = $self->get_install_signature($host);
+    my $sig = $self->get_install_signature($target);
     if (! defined $sig) {
-      $self->install_to_host($host);
+      $self->install_to_host($target);
     }
-    $self->SUPER::wrap_ssh(@args_in);
+    $self->SUPER::execute_wrapped_ssh($target, @args);
 }
 
 App::BCVI->hook_client_class();