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