[Ssh-sftp-perl-users] Net::SSH::Perl Bug found and workaround created

[Votava, C. (N. - US) <cra...@no...>]

Folks-

More and more you will start seeing this error message when trying to connect to upgraded ssh hosts via Net::SSH::Perl:

XS_Tk__Callback_Call error:Protocol error: expected packet type 91, got 80 at /opt/exp/perl/perl5.8/lib/site_perl/5.8.8/Net/SSH/Perl/Packet.pm line 222

This is due to some new changes made in the updated sshd servers.

I needed to fix this quickly, and documented my debugging & workaround here:

http://www.perlmonks.org/?node_id=1144748

Basically, I ended up changing the following code (in Red):


.../Net/SSH/Perl/Packet.pm:

217 sub read_expect {
218     my $class = shift;
219     my($ssh, $type) = @_;
220     my $pack = $class->read($ssh);
221     while($pack->type == 80) {          # CMV Hack start vvvv
222 print STDERR "IGNORING GLOBAL MESSAGE...";
223        $pack = $class->read($ssh);
224 print STDERR " NEXT MESSAGE IS: ", $pack->type, "\n";
225     }                                   # CMV Hack end ^^^^
226     if ($pack->type != $type) {
227         $ssh->fatal_disconnect(sprintf
228           "Protocol error: expected packet type %d, got %d",
229             $type, $pack->type);
230     }
231     $pack;
232 }

I wanted to announce this to the list, and see if anybody has a better workaround.

If not, can we get this in the distribution?

Thanks

-Craig