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

[Niko Tyni]

severity 514737 normal
retitle 514737 libpdf-reuse-perl: wrong declaration of PDF::Reuse::findFont, breaks with ModPerl?
thanks

On Thu, Feb 12, 2009 at 10:17:59AM +0100, Andreas Faust wrote:
> On Thursday 12 February 2009 07:20:02 you wrote:
> > 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"   ....

> > 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?

> no i can't.
> it becomes problem with mod_perl::registry..

(Please keep 514737 at bugs.debian.org Cc'd)

The severity is inflated in that case. Downgrading.

I still have trouble reproducing this. Running this under Mod_Perl::Registry
works for me:

#!/usr/bin/perl -w
use strict;
use PDF::Reuse;

our $n++;

prFile("/tmp/test.pdf");
prFont(q/Times-Roman/);
prText(100, 500, qq/Hello World\n/);
prEnd();

print "Done for the ${n}th time at @{[scalar localtime]}\n";
__END__

Please provide more detail.
-- 
Niko Tyni   ntyni at debian.org