[rt #86659] PNG benign error support is more complex than a version check

diff --git a/PNG/PNG.xs b/PNG/PNG.xs
index 1048b44881f5ea2f03bfdeadb96900f984cab3c2..242c77dbeb1ad941ee875fedcff59d8779377bb6 100644 (file)
--- a/PNG/PNG.xs
+++ b/PNG/PNG.xs
@@ -26,6 +26,20 @@ i_writepng_wiol(im, ig)
 unsigned
 i_png_lib_version()
 
+MODULE = Imager::File::PNG  PACKAGE = Imager::File::PNG PREFIX=i_png_
+
+void
+i_png_features(...)
+  PREINIT:
+    const char * const *p;
+  PPCODE:
+    p = i_png_features();
+    while (*p) {
+      EXTEND(SP, 1);
+      PUSHs(sv_2mortal(newSVpv(*p, 0)));
+      ++p;
+    }
+
 int
 IMPNG_READ_IGNORE_BENIGN_ERRORS()
   CODE:

diff --git a/PNG/impng.c b/PNG/impng.c
index dcc852421da0335366ad1bcc713a77da7d7ad86b..ac3f9fe1d61f29962cd8b1a7ebf0fb4d9b847dd2 100644 (file)
--- a/PNG/impng.c
+++ b/PNG/impng.c
@@ -48,6 +48,35 @@ i_png_lib_version(void) {
   return png_access_version_number();
 }
 
+static char const * const
+features[] =
+  {
+#ifdef PNG_BENIGN_ERRORS_SUPPORTED
+    "benign-errors",
+#endif
+#ifdef PNG_READ_SUPPORTED
+    "read",
+#endif
+#ifdef PNG_WRITE_SUPPORTED
+    "write",
+#endif
+#ifdef PNG_MNG_FEATURES_SUPPORTED
+    "mng-features",
+#endif
+#ifdef PNG_CHECK_cHRM_SUPPORTED
+    "check-cHRM",
+#endif
+#ifdef PNG_SET_USER_LIMITS_SUPPORTED
+    "user-limits",
+#endif
+    NULL
+  };
+
+const char * const *
+i_png_features(void) {
+  return features;
+}
+
 static void
 wiol_read_data(png_structp png_ptr, png_bytep data, png_size_t length) {
   io_glue *ig = png_get_io_ptr(png_ptr);
@@ -295,8 +324,14 @@ i_readpng_wiol(io_glue *ig, int flags) {
   }
   png_set_read_fn(png_ptr, (png_voidp) (ig), wiol_read_data);
 
-#if PNG_LIBPNG_VER >= 10400
+#if defined(PNG_BENIGN_ERRORS_SUPPORTED)
   png_set_benign_errors(png_ptr, (flags & IMPNG_READ_IGNORE_BENIGN_ERRORS) ? 1 : 0);
+#elif PNG_LIBPNG_VER >= 10400
+  if (flags & IMPNG_READ_IGNORE_BENIGN_ERRORS) {
+    i_push_error(0, "libpng not configured to ignore benign errors");
+    png_destroy_read_struct(&png_ptr, (png_infopp)NULL, (png_infopp)NULL);
+    return NULL;
+  }
 #else
   if (flags & IMPNG_READ_IGNORE_BENIGN_ERRORS) {
     i_push_error(0, "libpng too old to ignore benign errors");

diff --git a/PNG/impng.h b/PNG/impng.h
index af8225a2fa7e9ad83846a02dbee960105aa11617..f27a825d77c94d53a0cb5ea0bb78ba846a582685 100644 (file)
--- a/PNG/impng.h
+++ b/PNG/impng.h
@@ -10,4 +10,7 @@ i_img    *i_readpng_wiol(io_glue *ig, int flags);
 undef_int i_writepng_wiol(i_img *im, io_glue *ig);
 unsigned i_png_lib_version(void);
 
+extern const char * const *
+i_png_features(void);
+
 #endif

diff --git a/PNG/t/10png.t b/PNG/t/10png.t
index 4cabe536562cb7252d137818afcd4dc82f18a07e..bc109d7250e182d485bcf3a8e10a31213165b924 100644 (file)
--- a/PNG/t/10png.t
+++ b/PNG/t/10png.t
@@ -17,6 +17,8 @@ ok($Imager::formats{"png"}, "must have png format");
 
 diag("Library version " . Imager::File::PNG::i_png_lib_version());
 
+my %png_feat = map { $_ => 1 } Imager::File::PNG->features;
+
 my $green  = i_color_new(0,   255, 0,   255);
 my $blue   = i_color_new(0,   0,   255, 255);
 my $red    = i_color_new(255, 0,   0,   255);
@@ -180,8 +182,8 @@ EOS
 
 SKIP:
 { # ignoring "benign" errors
-  Imager::File::PNG::i_png_lib_version() > 10400
-      or skip "Cannot skip benign errors in libpng this old", 1;
+  $png_feat{"benign-errors"}
+      or skip "libpng not configured for benign error support", 1;
   my $im = Imager->new;
   ok($im->read(file => "testimg/badcrc.png", type => "png",
               png_ignore_benign_errors => 1),

diff --git a/lib/Imager/Files.pod b/lib/Imager/Files.pod
index 88f5dc68c7f5da88025e206ea2da76acca6f3c0d..a00a0d5130c8781e30fd71d1658886d824afdc19 100644 (file)
--- a/lib/Imager/Files.pod
+++ b/lib/Imager/Files.pod
@@ -1476,7 +1476,8 @@ C<i_background> - set from the C<sBKG> when reading an image file.
 =for stopwords
 CRC
 
-X<png_ignore_benign_errors>If you're using F<libpng> 1.4 or later, you
+X<png_ignore_benign_errors>If you're using F<libpng> 1.6 or later, or
+an earlier release configured with C<PNG_BENIGN_ERRORS_SUPPORTED>, you
 can choose to ignore file format errors the authors of F<libpng>
 consider I<benign>, this includes at least CRC errors and palette
 index overflows.  Do this by supplying a true value for the