r1942 - in packages/libpdf-report-perl/trunk: . debian

[Russ Allbery]

Author: rra
Date: 2006-01-16 22:23:19 +0000 (Mon, 16 Jan 2006)
New Revision: 1942

Modified:
   packages/libpdf-report-perl/trunk/Report.pm
   packages/libpdf-report-perl/trunk/debian/changelog
Log:
  * Scale barcodes correctly.  Thanks, jim at short.circuit.com.
    (Closes: #343937)


Modified: packages/libpdf-report-perl/trunk/Report.pm
===================================================================
--- packages/libpdf-report-perl/trunk/Report.pm	2006-01-16 06:28:06 UTC (rev 1941)
+++ packages/libpdf-report-perl/trunk/Report.pm	2006-01-16 22:23:19 UTC (rev 1942)
@@ -918,7 +918,7 @@
   $gfx->fillcolor('#ffffff');
   $gfx->linewidth(0.1);
   $gfx->fill;
-  $gfx->formimage($bar,0,0);
+  $gfx->formimage($bar,0,0,$scale);
   $gfx->restore;
 }
 

Modified: packages/libpdf-report-perl/trunk/debian/changelog
===================================================================
--- packages/libpdf-report-perl/trunk/debian/changelog	2006-01-16 06:28:06 UTC (rev 1941)
+++ packages/libpdf-report-perl/trunk/debian/changelog	2006-01-16 22:23:19 UTC (rev 1942)
@@ -1,3 +1,10 @@
+libpdf-report-perl (1.30-3) unstable; urgency=low
+
+  * Scale barcodes correctly.  Thanks, jim at short.circuit.com.
+    (Closes: #343937)
+
+ -- Russ Allbery <rra at debian.org>  Mon, 16 Jan 2006 13:46:36 -0800
+
 libpdf-report-perl (1.30-2) unstable; urgency=low
 
   [ Niko Tyni ]