From: Tony Cook <tony@develop=help.com>
Date: Mon, 12 Nov 2007 00:40:01 +0000 (+0000)
Subject: read gimp gradients with more than 9 segments
X-Git-Tag: Imager-0.63~55
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/cfa61c8008277f44786b6edd373dec7b6d309a56

read gimp gradients with more than 9 segments
---

diff --git a/lib/Imager/Fountain.pm b/lib/Imager/Fountain.pm
index 23d86195..c8e99a5e 100644
--- a/lib/Imager/Fountain.pm
+++ b/lib/Imager/Fountain.pm
@@ -321,8 +321,9 @@ sub _load_gimp_gradient {
   if ($count =~ /^name:\s?(.*)/i) {
     ref $name and $$name = $1;
     $count = <$fh>; # try again
+    chomp $count;
   }
-  unless ($count =~ /^\d$/) {
+  unless ($count =~ /^\d+$/) {
     $Imager::ERRSTR = "$filename is missing the segment count";
     return;
   }