Bug#343937: libpdf-report-perl: barcode's don't scale
jim at short.circuit.com
jim at short.circuit.com
Sun Dec 18 22:24:37 UTC 2005
Package: libpdf-report-perl
Version: 1.30-2
Severity: normal
The "$scale" variable is missing from /usr/share/perl5/PDF/Report.pm
sub drawBarcode {
my $self = shift;
my $x = shift; # x center of barcode image
my $y = shift; # y center of barcode image
my $scale = shift; # scale of barcode image
<...........>
$gfx->fillcolor('#ffffff');
$gfx->linewidth(0.1);
$gfx->fill;
$gfx->formimage($bar,0,0); <-------###
$gfx->restore;
}
Line 921 has omitted the variable - it should read:
$gfx->formimage($bar,0,0,$scale);
and then barcode scaling will work.
-- System Information:
Debian Release: testing/unstable
APT prefers testing
APT policy: (990, 'testing'), (500, 'stable'), (50, 'unstable')
Architecture: i386 (i686)
Shell: /bin/sh linked to /bin/bash
Kernel: Linux 2.6.14
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Versions of packages libpdf-report-perl depends on:
ii libpdf-api2-perl 0.51-1 provides the functions for creatin
ii libtext-roman-perl 3.3-3 A module for managing integer and
ii perl 5.8.7-10 Larry Wall's Practical Extraction
libpdf-report-perl recommends no packages.
-- no debconf information
More information about the pkg-perl-maintainers
mailing list