X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/5fd542c70775bbfa42ca160796fba7191bb02c8f..ac3e79fbec128d1c9fc0af1f9ac418b9639cfd9d:/PNG/PNG.pm

diff --git a/PNG/PNG.pm b/PNG/PNG.pm
index 838dfe6f..c7ece8f2 100644
--- a/PNG/PNG.pm
+++ b/PNG/PNG.pm
@@ -4,17 +4,10 @@ use Imager;
 use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.81";
-
-  eval {
-    require XSLoader;
-    XSLoader::load('Imager::File::PNG', $VERSION);
-    1;
-  } or do {
-    require DynaLoader;
-    push @ISA, 'DynaLoader';
-    bootstrap Imager::File::PNG $VERSION;
-  };
+  $VERSION = "0.94";
+
+  require XSLoader;
+  XSLoader::load('Imager::File::PNG', $VERSION);
 }
 
 Imager->register_reader
@@ -23,7 +16,10 @@ Imager->register_reader
    single => 
    sub { 
      my ($im, $io, %hsh) = @_;
-     $im->{IMG} = i_readpng_wiol($io);
+     my $flags = 0;
+     $hsh{png_ignore_benign_errors}
+       and $flags |= IMPNG_READ_IGNORE_BENIGN_ERRORS;
+     $im->{IMG} = i_readpng_wiol($io, $flags);
 
      unless ($im->{IMG}) {
        $im->_set_error(Imager->_error_as_msg);