BuildAll and DemolishAll are loaded on first ->new so need to be explicitly packed

[scpubgit/Object-Remote.git] / lib / Object / Remote / Connector / SSH.pm

diff --git a/lib/Object/Remote/Connector/SSH.pm b/lib/Object/Remote/Connector/SSH.pm
index 0821c96..bf24a0a 100644 (file)
--- a/lib/Object/Remote/Connector/SSH.pm
+++ b/lib/Object/Remote/Connector/SSH.pm
@@ -8,13 +8,10 @@ with 'Object::Remote::Role::Connector::PerlInterpreter';
 
 around _perl_command => sub {
   my ($orig, $self, $target) = @_;
-  return 'ssh', $target, $self->$orig($target);
+  return 'ssh', '-A', $target, $self->$orig($target);
 };
 
-sub _ssh_object_for {
-  my ($self, $on) = @_;
-  $self->ssh_masters->{$on} ||= Net::OpenSSH->new($on);
-}
+no warnings 'once';
 
 push @Object::Remote::Connection::Guess, sub { 
   for ($_[0]) {