Bug#514737: libpdf-reuse-perl: wrong declaration of PDF::Reuse::findFont

[Niko Tyni]

On Tue, Feb 10, 2009 at 03:32:31PM +0100, Andreas Faust wrote:
> Package: libpdf-reuse-perl
> Severity: grave
> Justification: renders package unusable
> 
> Too many arguments for PDF::Reuse::findFont at /usr/share/perl5/PDF/Reuse.pm line 197, near "$nyFont)"
> BEGIN not safe after errors--compilation aborted at /usr/share/perl5/PDF/Reuse.pm line 744.
> Compilation failed in require at (eval 312) line 36.
> BEGIN failed--compilation aborted at (eval 312) line 36.
> 
> "sub PDF::Reuse::findFont()" is wrong, as it implies "no arguments"
> 
> it should be "sub PDF::Reuse::findFont"   ....

Hi,

while I see the wrong prototype on Reuse.pm:744, I can't reproduce this
error. Could you please provide a test case or something like that?

For example, this works for me and visits the problematic code:

# perl -MPDF::Reuse -e 'prFile("test.pdf"); prFont(q/Times-Roman/); prText(100, 500, qq/Hello World\n/); prEnd()'
-- 
Niko Tyni   ntyni at debian.org