Select Code to Download

my $ssh = Net::SSH::Perl->new($ssh_box, interactive => 1);

$ssh->login($user, $pass);

# in sub auth_failure:
    for my $meth ( split /,/, $authlist ) {
...
        # next unless $auth->enabled;  # <--  line 116 in v1.29
        ...
    }