Skip Menu |

This queue is for tickets about the GD-Barcode CPAN distribution.

Report information
The Basics
Id: 70966
Status: open
Priority: 0/
Queue: GD-Barcode

People
Owner: Nobody in particular
Requestors: frank.schreiner [...] isarnet.de
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



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});
From: awgrover [...] gmail.com
On Wed Sep 14 10:46:24 2011, frank.schreiner@isarnet.de wrote: Show quoted text
> 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});
That should be: + $oSelf->{Version} = $rhPrm->{Version} || 0; I show 1.15 as having the " || 1 ", which _prevents_ auto-Version.
Duplicate of 20297