GD::Barcode::QRcodeのバグ?の件について

GD::Barcodeのバージョンは1.15で。
http://search.cpan.org/~kwitknr/GD-Barcode-1.15/

newのパラメータにVersionというのがあり、これは以下のようにデフォルトではauto selectとなっているのですが動き的にはデフォルトは1になってしまいます。

Version

Version ie. size of barcode image (Default = auto select).

コードを見るとこうなっていて

sub init($$$){
    my($oSelf, $sTxt, $rhPrm) =@_;

#CalcCd
    $oSelf->{text} = $sTxt;
    $oSelf->{Ecc} = $rhPrm->{Ecc} || ' ';
    $oSelf->{Ecc} =~ tr/LMHQ/M/c;    #Not /LMQH/ => M
    $oSelf->{Version} = $rhPrm->{Version} || 1;

たぶんこうするだけでauto selectになります。

    $oSelf->{Version} = $rhPrm->{Version};

auto selectの処理は_calcVersion()でやっているのですが、以下のif文が真にならないと処理が行われません。

    if (!$oSelf->{Version}){        #--- auto version select

• • -

GD::Barcodeは最近アップデートされていないようなので、いまさら的な話なのかもしれませんが。
一応バグ報告は上がっているようです。
http://rt.cpan.org/Public/Bug/Display.html?id=20297