Fixed // in filters.c. And things that didn't work in perl 5.004_04
authorArnar Mar Hrafnkelsson <addi@cpan.org>
Sun, 20 May 2001 23:14:41 +0000 (23:14 +0000)
committerArnar Mar Hrafnkelsson <addi@cpan.org>
Sun, 20 May 2001 23:14:41 +0000 (23:14 +0000)
in the testcases.

README
filters.c
t/t105gif.t
t/t50basicoo.t

diff --git a/README b/README
index b1734f2..4e35693 100644 (file)
--- a/README
+++ b/README
@@ -91,6 +91,12 @@ t/t105gif.t checks for an bug in libgif and prints out a patch
 if that bug is present, note that this bug only affects the more
 "advanced" features of libgif.
 
+If for some reason you have libungif-devel package installed but
+not libungif on RedHat then you will probably get lots of errors
+like undefined symbol: FreeSavedImages when running make test.
+Install libungif package to fix it.
+
+
 Imager needs to have a fairly recent libtiff installed (we know it
 it runs fine with 3.5.5).  In the future we might consider supporting older
 libtiff versions.  For now you can either configure Imager manually (by
index c395ed9..9ef9547 100644 (file)
--- a/filters.c
+++ b/filters.c
@@ -932,9 +932,6 @@ i_nearest_color(i_img *im, int num, int *xo, int *yo, i_color *oval, int dmeasur
     c2 = 1.0/(float)(cmatch[midx]);
     c1 = 1.0-c2;
     
-    //    printf("pixel [%d %d %d] c1+c2 = %f\n", val.channel[0], val.channel[1], val.channel[2], c1+c2);
-    //    printf("cmatch = %d, c1 = %f, c2 = %f tval=[%f %f %f]\n", cmatch[midx], c1, c2, tval[midx*im->channels], tval[midx*im->channels+1], tval[midx*im->channels+2] );
-
     for(ch = 0; ch<im->channels; ch++) 
       tval[midx*im->channels + ch] = c1*tval[midx*im->channels + ch] + c2 * (float) val.channel[ch];
   
index c4603ea..f3fe342 100644 (file)
@@ -105,7 +105,9 @@ if (!i_has_format("gif")) {
       print test_readgif_cb(1024) ? "ok 10\n" : "not ok 10\n";
     }
     else {
-      print "ok $_ # skip giflib3 doesn't support callbacks\n" for (7..10);
+      for (7..10) {
+       print "ok $_ # skip giflib3 doesn't support callbacks\n";
+      }
     }
     open FH, ">testout/t105_mc.gif" or die "Cannot open testout/t105_mc.gif";
     binmode FH;
index fc43b9e..c9ab551 100644 (file)
@@ -14,7 +14,7 @@ $loaded = 1;
 
 print "ok 1\n";
 
-Imager::init(log=>"testout/t50basicoo.log");
+Imager::init("log"=>"testout/t50basicoo.log");
 
 %hsh=%Imager::formats;