X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FRexec.pm;h=8d6a9a347ed3af222d87aa4d32d055560cc0e041;hb=2c01c84371c7b69dc90361c55bd9d8c631007b3c;hp=71fdd224da40d6b0ac488004ee8add2d5d4b4c97;hpb=44794d71b375bf6e0a450a71bd43adb27a202a4e;p=clearscm.git diff --git a/lib/Rexec.pm b/lib/Rexec.pm index 71fdd22..8d6a9a3 100644 --- a/lib/Rexec.pm +++ b/lib/Rexec.pm @@ -500,6 +500,10 @@ Returns: # Close any prior opened sessions $self->logoff if ($self->{handle}); + # Check to see if this machines is known in DNS. If not then the chance is + # good that we will not be able to log in + return unless gethostbyname $self->{host}; + my $remote; if ($self->{protocol}) {