didn't set default for bounding_box() utf8 parameter (caused a warning

when calling bounding_box() on a FT2 font with no utf8 parameter)

diff --git a/Changes b/Changes
index 0d14c02e674872741f441873063009f463b3965e..5d7159314d94173c62824c0cd1facf52dfb0ffe7 100644 (file)
--- a/Changes
+++ b/Changes
@@ -589,6 +589,9 @@ Revision history for Perl extension Imager.
        - fix calculation of descender for FT2, it was calculating the
          minimum decent rather than the maximum for the characters in 
          the string
+       - didn't set default for bounding_box() utf8 parameter (caused a
+         warning when calling bounding_box() on a FT2 font with no utf8
+         parameter)
 
 =================================================================
 

diff --git a/lib/Imager/Font.pm b/lib/Imager/Font.pm
index 9807df0d2676da185e59bacb9321c064e011c89d..fc041f2564c2df4eecd093a14ee8d11213be0746 100644 (file)
--- a/lib/Imager/Font.pm
+++ b/lib/Imager/Font.pm
@@ -146,6 +146,7 @@ sub bounding_box {
   }
   $input{size} ||= $self->{size};
   $input{sizew} = _first($input{sizew}, $self->{sizew}, 0);
+  $input{utf8} = _first($input{utf8}, $self->{utf8}, 0);
 
   my @box = $self->_bounding_box(%input);