Subject: | GD::Barcode::QRcode : Version auto select broken |
Date: | Wed, 14 Sep 2011 16:46:06 +0200 |
To: | bug-GD-Barcode [...] rt.cpan.org |
From: | Frank Schreiner <frank.schreiner [...] isarnet.de> |
ii libgd-barcode-perl 1.15-4ubuntu1
--- /usr/local/share/perl/5.10.1/GD//Barcode/QRcode.pm 2011-08-06
17:07:41.000000000 +0200
+++ /usr/share/perl5/GD//Barcode/QRcode.pm 2004-04-24 08:35:34.000000000
+0200
@@ -37,7 +37,7 @@
$oSelf->{text} = $sTxt;
$oSelf->{Ecc} = $rhPrm->{Ecc} || ' ';
$oSelf->{Ecc} =~ tr/LMHQ/M/c; #Not /LMQH/ => M
- $oSelf->{Version} = $rhPrm->{Version};
+ $oSelf->{Version} = $rhPrm->{Version} || 1;
$oSelf->{ModuleSize} = $rhPrm->{ModuleSize} || 1;
$oSelf->{ModuleSize} = int($oSelf->{ModuleSize});