[rt.cpan.org #65386] really fix #62885
authorPhilip Gwyn <perl@pied.nu>
Thu, 3 Feb 2011 06:54:43 +0000 (17:54 +1100)
committerTony Cook <tony@develop-help.com>
Thu, 3 Feb 2011 06:54:43 +0000 (17:54 +1100)
lib/Imager/Font.pm

index 1dedbaacd06171a430b36006a4e888713b4b521e..964bc5281e853366c403e6ef8cd8d3ff094d6082 100644 (file)
@@ -78,7 +78,7 @@ sub new {
         undef $type;
         my $re = $drivers{$drv}{files} or next;
         if ($file =~ /$re/i) {
-         if (eval { require $drivers{$drv}{module}; 1 }) {
+         if (eval { require $drivers{$drv}{module}; 1 } and !( $drivers{$drv}{checktype} && !$Imager::formats{$drv} )) {
            $type = $drv;
            last;
          }