- samples/gifscale.pl sourced the base value for gif_top from

   gif_left.
   Thanks to Eleneldil G. Arilou for pointing this out.

diff --git a/Changes b/Changes
index 5735977fded5ae1be8bb3fa7745470829a0c1411..6ed31baad6f05b72367473930a737208f7979ed7 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,15 @@
 Imager release history.  Older releases can be found in Changes.old
 
+Imager 0.62 - unreleased
+===========
+
+Bug fixes:
+
+ - samples/gifscale.pl sourced the base value for gif_top from
+   gif_left.
+   Thanks to Eleneldil G. Arilou for pointing this out.
+
+
 Imager 0.61_02 - 28 November 2007
 ==============
 

diff --git a/samples/gifscale.pl b/samples/gifscale.pl
index a7b3a4ad4aab4ff519db46b47d8d3b7ef99eb6d7..9d4171a20693a120c0f0390e103c3a1a64c0f896 100644 (file)
--- a/samples/gifscale.pl
+++ b/samples/gifscale.pl
@@ -40,7 +40,7 @@ for my $in (@in) {
   $scaled->settag(name => 'gif_left', 
                  value => $factor * $in->tags(name => 'gif_left'));
   $scaled->settag(name => 'gif_top', 
-                 value => $factor * $in->tags(name => 'gif_left'));
+                 value => $factor * $in->tags(name => 'gif_top'));
 
   $scaled->settag(name => 'gif_screen_width', value => $out_screen_width);
   $scaled->settag(name => 'gif_screen_height', value => $out_screen_height);