Bug#824564: libterm-readkey-perl: supply a filehandle parameter on GetTerminalSize don't work work

[Thomas Liske]

Package: libterm-readkey-perl
Version: 2.32-1+b1
Severity: normal
Tags: patch, upstream

Hi,

there seems to be a bug in GetTerminalSize using the optional filehandle
parameter. The man page reads:

    GetTerminalSize [Filehandle]

But the implementation ignores the first parameter and expects the filehandle
as second parameter:

    sub GetTerminalSize
    {
	my ($file) = normalizehandle( ( @_ > 1 ? $_[1] : \*STDOUT ) );


So it seems to be a off-by-one error, I've attached a trival patch.


HTH,
Thomas


-- System Information:
Debian Release: 8.4
  APT prefers stable-updates
  APT policy: (500, 'stable-updates'), (500, 'stable')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 4.3.3-tl1+ (SMP w/4 CPU cores; PREEMPT)
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Init: systemd (via /run/systemd/system)

Versions of packages libterm-readkey-perl depends on:
ii  libc6                       2.19-18+deb8u4
ii  perl                        5.20.2-3+deb8u4
ii  perl-base [perlapi-5.20.0]  5.20.2-3+deb8u4

libterm-readkey-perl recommends no packages.

libterm-readkey-perl suggests no packages.

-- no debconf information
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ReadKey.pm-params.patch
Type: text/x-diff
Size: 377 bytes
Desc: not available
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20160517/3f299214/attachment.patch>