Some fonts issue a lot of warnings similar to:
Use of uninitialized value $_[1] in read at /usr/lib64/perl5/IO/Handle.pm line 463.
Suggested fix:
--- /home/jv/lib/perl5/Font/TTF/Glyph.pm~ 2015-08-20 16:25:49.656873029 +0200
+++ /home/jv/lib/perl5/Font/TTF/Glyph.pm 2015-08-20 16:28:25.029853617 +0200
@@ -262,13 +262,13 @@
{
my ($self) = @_;
my ($fh) = $self->{' INFILE'};
- my ($dat);
+ my $dat = "";
return $self if (defined $self->{' read'} && $self->{' read'} > 0);
$self->{' read'} = 1;
$fh->seek($self->{' LOC'} + $self->{' BASE'}, 0);
- $fh->read($self->{' DAT'}, $self->{' LEN'});
- TTF_Read_Fields($self, $self->{' DAT'}, \%fields);
+ $fh->read($dat, $self->{' LEN'});
+ TTF_Read_Fields($self, $self->{' DAT'} = $dat, \%fields);
$self;
}
RT for rt.cpan.org