[RT #65863] mostly eliminate i_has_format
authorTony Cook <tony@develop-help.com>
Fri, 18 Feb 2011 13:14:38 +0000 (00:14 +1100)
committerTony Cook <tony@develop-help.com>
Fri, 18 Feb 2011 13:14:38 +0000 (00:14 +1100)
Changes
Imager.pm
Imager.xs
feat.c
t/t35ttfont.t
t/t36oofont.t
t/t80texttools.t

diff --git a/Changes b/Changes
index d156721..a5b137c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,15 @@
 Imager release history.  Older releases can be found in Changes.old
 
+Imager 0.82 - unreleased
+===========
+
+Bug fixes:
+
+ - eliminate calls to i_has_format() from the test suite, since it's
+   no longer a useful way to check for file format support.  Eliminate
+   i_has_format() from the functions exposed via XS.
+   https://rt.cpan.org/Ticket/Display.html?id=65863
+
 Imager 0.81 - 14 Feb 2011
 ===========
 
index 42d320c..e1039a0 100644 (file)
--- a/Imager.pm
+++ b/Imager.pm
@@ -19,7 +19,6 @@ use Imager::Font;
                unload_plugin
 
                i_list_formats
-               i_has_format
 
                i_color_new
                i_color_set
index b0c674e..e9a7952 100644 (file)
--- a/Imager.xs
+++ b/Imager.xs
@@ -1293,10 +1293,6 @@ i_list_formats()
                      PUSHs(sv_2mortal(newSVpv(item,0)));
               }
 
-undef_int
-i_has_format(frmt)
-              char*    frmt
-
 Imager::ImgRaw
 i_img_new()
 
diff --git a/feat.c b/feat.c
index ea84839..2554557 100644 (file)
--- a/feat.c
+++ b/feat.c
@@ -1,5 +1,6 @@
 #include "feat.h"
 
+/* only for use as a placeholder in the old dynamic module code */
 undef_int
 i_has_format(char *frmt) {
   int rc,i;
index 256b6bd..42234fa 100644 (file)
@@ -14,7 +14,7 @@ init_log("testout/t35ttfont.log",2);
 SKIP:
 {
   skip("freetype 1.x unavailable or disabled", 91) 
-    unless i_has_format("tt");
+    unless $Imager::formats{"tt"};
   print "# has tt\n";
   
   my $deffont = './fontfiles/dodge.ttf';
index 5781e23..2e0ced2 100644 (file)
@@ -27,7 +27,7 @@ die $Imager::ERRSTR unless $red;
 
 SKIP:
 {
-  i_has_format("tt") && -f $fontname_tt
+  $Imager::formats{"tt"} && -f $fontname_tt
     or skip("FT1.x missing or disabled", 10);
 
   my $img=Imager->new(xsize=>300, ysize=>100) or die "$Imager::ERRSTR\n";
index 1dff6ee..b685c7c 100644 (file)
@@ -38,7 +38,7 @@ my $font = Imager::Font->new(file=>$fontfile);
 
 SKIP:
 {
-  Imager::i_has_format('tt') || Imager::i_has_format('ft2')
+  $Imager::formats{'tt'} || $Imager::formats{'ft2'}
       or skip("Need Freetype 1.x or 2.x to test", 11);
 
   ok($font, "loading font")