Subject: | Win32 Font not found |
Date: | Tue, 14 Sep 2010 21:37:48 +0800 |
To: | <bug-Imager [...] rt.cpan.org> |
From: | "Maurice Height" <mauriceh [...] bigpond.net.au> |
I am using Imager v 0.77 on Strawberry Perl v 5.12.1.0 and Windows XP
On an earlier version of Imager this code worked fine:
my $font = Imager::Font->new( face => 'Tahoma Bold',
size => 14,
color => 'black
)
or die qq[ERROR: failed to load font face for 'title_font'
:], Imager->errstr;
With Imager v 0.77 I get this error in my code:
ERROR: failed to load font face for 'title_font' :`w32' not enabled at
C:/MyCode/M_perl/dev_lib/TimeSeries/Graph.pm line 217.
I notice for the following code lines as displayed in debugger
(Devel::ptkdb)
# Line 120 of Font.pm calls line 03961 in Imager.pm
00120 if (!$Imager::formats{$type})
03961 sub FETCH
03962 my ($self, $key) = @_
03963
03964 exists $self->[IX_FORMATS]{$key} and return
$self->[IX_FORMATS]{$key}
03965
03966 $self->[IX_CLASSES]{$key} or return undef
that key = 'w32' which seems correct, but $self->[IX_FORMATS]{'w32'} does
not exist.
Thanks
Maurice Height