Bug#343937: libpdf-report-perl: barcode's don't scale

[jim at short.circuit.com]

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