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