move win32 font support in a new directory, and use Imager::Probe
[imager.git] / Imager.pm
index 080b790895f361db752a0ad45d0cd0f3e8852b35..7349469e5a4b3106ddf5037c86d999315bb6b6e0 100644 (file)
--- a/Imager.pm
+++ b/Imager.pm
@@ -174,6 +174,7 @@ my %format_classes =
    gif => "Imager::File::GIF",
    tiff => "Imager::File::TIFF",
    jpeg => "Imager::File::JPEG",
+   w32 => "Imager::Font::W32",
   );
 
 tie %formats, "Imager::FORMATS", \%formats_low, \%format_classes;
@@ -3906,6 +3907,8 @@ sub _check {
 sub FETCH {
   my ($self, $key) = @_;
 
+  $DB::single = 1;
+
   exists $self->[IX_FORMATS]{$key} and return $self->[IX_FORMATS]{$key};
 
   $self->[IX_CLASSES]{$key} or return undef;