avoid ignoring the result of i_io_getc()

[imager.git] / ICO / ICO.pm

diff --git a/ICO/ICO.pm b/ICO/ICO.pm
index 2bc85306c504b9283708db96635c43d7f68b235f..c560a57fd8785f0d4a3cbaeb0bdbcf5da609700b 100644 (file)
--- a/ICO/ICO.pm
+++ b/ICO/ICO.pm
@@ -4,7 +4,7 @@ use Imager;
 use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.03";
+  $VERSION = "0.06";
   
   require XSLoader;
   XSLoader::load('Imager::File::ICO', $VERSION);
@@ -18,7 +18,11 @@ Imager->register_reader
      my ($im, $io, %hsh) = @_;
      my $masked = 
        exists $hsh{ico_masked} ? $hsh{ico_masked} : 1;
-     $im->{IMG} = i_readico_single($io, $hsh{page} || 0, $masked);
+     my $alpha_masked =
+       exists $hsh{ico_alpha_masked} ? $hsh{ico_alpha_masked} : 0;
+
+     $im->{IMG} = i_readico_single($io, $hsh{page} || 0, $masked,
+                                  $alpha_masked);
 
      unless ($im->{IMG}) {
        $im->_set_error(Imager->_error_as_msg);
@@ -52,7 +56,10 @@ Imager->register_reader
      my ($im, $io, %hsh) = @_;
      my $masked = 
        exists $hsh{ico_masked} ? $hsh{ico_masked} : 1;
-     $im->{IMG} = i_readico_single($io, $hsh{page} || 0, $masked);
+     my $alpha_masked =
+       exists $hsh{ico_alpha_masked} ? $hsh{ico_alpha_masked} : 0;
+     $im->{IMG} = i_readico_single($io, $hsh{page} || 0, $masked,
+                                  $alpha_masked);
 
      unless ($im->{IMG}) {
        $im->_set_error(Imager->_error_as_msg);