X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FConnector%2FSSH.pm;h=73bc2fc2630ad7b775b8e49190fc0dde706db92e;hp=dbc988a906b798f706a96b892724cedfb28683b4;hb=55c0d0209fa9d9265ff178f54ae9fe5fdddef3c1;hpb=5ccce2d5c1fb651f83c73c811069003e4a591a53 diff --git a/lib/Object/Remote/Connector/SSH.pm b/lib/Object/Remote/Connector/SSH.pm index dbc988a..73bc2fc 100644 --- a/lib/Object/Remote/Connector/SSH.pm +++ b/lib/Object/Remote/Connector/SSH.pm @@ -17,7 +17,7 @@ has ssh_command => (is => 'ro', default => sub { 'ssh' }); sub _build_ssh_perl_command { my ($self) = @_; - my $perl_command = $self->perl_command; + my $perl_command = $self->perl_command; return [ do { my $c = $self->ssh_command; ref($c) ? @$c : $c }, @@ -30,7 +30,7 @@ sub final_perl_command { shift->ssh_perl_command } no warnings 'once'; -push @Object::Remote::Connection::Guess, sub { +push @Object::Remote::Connection::Guess, sub { for ($_[0]) { # 0-9 a-z _ - first char, those or . subsequent - hostnamish if (defined and !ref and /^(?:.*?\@)?[\w\-][\w\-\.]/) {