Bug#506214: Possible patch
    Patrick Matthäi 
    patrick.matthaei at web.de
       
    Wed Nov 19 12:49:30 UTC 2008
    
    
  
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
tags #506213 patch
thanks
This fixes the problem here:
- --- Reuse.pm.orig       2008-11-19 13:44:52.000000000 +0100
+++ Reuse.pm    2008-11-19 13:46:05.000000000 +0100
@@ -1281,8 +1281,10 @@
    if (ref($PDF::Reuse::Util::font_widths{$Font}) eq 'ARRAY')
    {   my @font_table = @{ $PDF::Reuse::Util::font_widths{$Font} };
- -       for (unpack ("C*", $string))
- -       {  $w += $font_table[$_];
+       if(defined $string){
+          for (unpack ("C*", $string))
+          {  $w += $font_table[$_];
+          }
        }
    }
    else
I think this patch will not break anything, because it simply just calls
unpack() if $string is defined, with an undefined one, there is nothing
to unpack.
- --
/*
Mit freundlichem Gruß / With kind regards,
Patrick Matthäi
E-Mail: patrick.matthaei at web.de
Comment:
Always if we think we are right,
we were maybe wrong.
*/
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
iEYEARECAAYFAkkkC1oACgkQ2XA5inpabMc49wCggOVsf7vpHYeKO8AJD8k/5MUJ
XncAn1xQOo2kFvVyDHjT7oSj7sahrAUB
=51fY
-----END PGP SIGNATURE-----
    
    
More information about the pkg-perl-maintainers
mailing list