From a5dbf458215163bb4fa4d585e0b41bd6a4616cb4 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop=help.com>
Date: Mon, 25 Jun 2007 02:55:06 +0000
Subject: [PATCH] don't attempt to save the palette if we failed to read the
 image

---
 Imager.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Imager.pm b/Imager.pm
index f59aa462..b6131c96 100644
--- a/Imager.pm
+++ b/Imager.pm
@@ -1356,7 +1356,7 @@ sub read {
       my $page = $input{'page'};
       defined $page or $page = 0;
       $self->{IMG} = i_readgif_single_wiol( $IO, $page );
-      if ($input{colors}) {
+      if ($self->{IMG} && $input{colors}) {
 	${ $input{colors} } =
 	  [ i_getcolors($self->{IMG}, 0, i_colorcount($self->{IMG})) ];
       }
-- 
2.39.5