| Subject: | [patch] $ssh->shell() - terminal height set as width and vice versa |
Simple typo, but very annoying.
The patch should be self-explanatory.
Thanks,
szmytson
| Subject: | perl.net.ssh.patch |
--- SSH2.pm 2010-08-29 17:22:22.000000000 +0100
+++ SSH2.pm.orig 2010-08-29 11:57:52.000000000 +0100
@@ -150,8 +150,8 @@
my @sz = Term::ReadKey::GetTerminalSize($ssh->sock);
if (defined $sz[0]) {
$foundsize = 1;
- $packet->put_int32($sz[0]); # height
- $packet->put_int32($sz[1]); # width
+ $packet->put_int32($sz[1]); # height
+ $packet->put_int32($sz[0]); # width
$packet->put_int32($sz[2]); # xpix
$packet->put_int32($sz[3]); # ypix
}
@@ -225,8 +225,8 @@
my @sz = Term::ReadKey::GetTerminalSize($ssh->sock);
if (defined $sz[0]) {
$foundsize = 1;
- $r_packet->put_int32($sz[0]); # height
- $r_packet->put_int32($sz[1]); # width
+ $r_packet->put_int32($sz[1]); # height
+ $r_packet->put_int32($sz[0]); # width
$r_packet->put_int32($sz[2]); # xpix
$r_packet->put_int32($sz[3]); # ypix
}