Bug#442599: libfont-ttf-perl: warning in Name.pm

[Eugeniy Meshcheryakov]

Package: libfont-ttf-perl
Version: 0.41-1
Severity: minor

Trivial program that "uses" this library generates a waring message:

% cat 1.pl
#!/usr/bin/perl -w

use Font::TTF::Name;
% ./1.pl
Use of uninitialized value in list assignment at /usr/share/perl5/Font/TTF/Name.pm line 109.

This bug also can be reproduced while building ttf-dejavu package.

Waring generated by line 109:
%langs_win = map {$win_langs{$_} => $_} keys %win_langs;

When warning generated $_ is 1024, value of $win_langs{$_} is undefined.
$win_langs{1024} is assigned in line 107:
{ $win_langs{$i + 0x400} = $ms_langids[$i][0]; }


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

Kernel: Linux 2.6.23-rc5-me (SMP w/2 CPU cores; PREEMPT)
Locale: LANG=uk_UA.UTF-8, LC_CTYPE=uk_UA.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages libfont-ttf-perl depends on:
ii  perl                          5.8.8-7    Larry Wall's Practical Extraction 

libfont-ttf-perl recommends no packages.

-- debconf-show failed