Bug#841252: libtk-filedialog-perl: Control-W is deprecated in $W variable, needs to be changed to $^W with literal ^ character

[Carlo Segre]

Package: libtk-filedialog-perl
Version: 1.3-4
Severity: normal

Dear Maintainer,

When starting the "athena" program (from the horae package), the following 
error appears

Unrecognized character \x17; marked by <-- HERE after nSave) = $<-- HERE
near column 22 at /usr/share/perl5/Tk/FileDialog.pm line 610.
at /usr/lib/x86_64-linux-gnu/perl5/5.24/Tk/widgets.pm line 14.
Compilation failed in require at
/usr/lib/x86_64-linux-gnu/perl5/5.24/Tk/widgets.pm line 14.
at /usr/bin/athena line 76.
BEGIN failed--compilation aborted at /usr/bin/athena line 82.

It turns out that this is because of code in /usr/share/perl5/Tk/FileDialog.pm
which appears close to line 604:

####  PRIVATE METHODS AND SUBROUTINES ####
sub IsNum {
    my($parm) = @_;
    my($warnSave) = $^W;
    $^W = 0;
    my($res) = (($parm + 0) eq $parm);
    $^W = $warnSave;
    return $res;
}

The character "^W" is actually the single character Control-W instead of the 
"^" character followed by "W".  This use is deprecated and can be fixed by 
replacing the Control-W in the three lines above. 

-- System Information:
Debian Release: stretch/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 4.7.0-1-amd64 (SMP w/8 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Init: systemd (via /run/systemd/system)

Versions of packages libtk-filedialog-perl depends on:
ii  perl     5.24.1~rc3-3
ii  perl-tk  1:804.033-1+b3

libtk-filedialog-perl recommends no packages.

libtk-filedialog-perl suggests no packages.

-- no debconf information