Patch Perl modulu

[Petr.Vileta]

V generatoru QR code mi to pri nevhodnem vyplneni formulare hazi chybu, protoze je chyba v Perl modulu /usr/share/perl5/GD/Barcode/QRcode.pm
Autorovi uz jsem o te chybe psal pred rokem, ale evidentne na to prdi.

Vygeneroval jsem diff, ale nejsem si jisty, ze je vygenerovany spravne (diffum moc nerozumim) a take jsou tam nejake podivne znaky a nejsem si jisty, ze to spravne projde.

Kód: Vybrat vše

--- l:\temp\xx\qrcode.pm	Sat Mar 08 16:13:14 2008
+++ qrcode.pm	Sun Jul 10 17:17:04 2011
@@ -110,7 +110,9 @@
         $aDatBit[$iDatCnt] = $iMaxDatBits-$iTotalBits;
     }
     elsif ($iTotalBits > $iMaxDatBits){
-        die "Overflow error. version $oSelf->{Version}\n" . 
+#        die "Overflow error. version $oSelf->{Version}\n" . 
+#            "total bits: $iTotalBits  max bits: $iMaxDatBits\n";
+        return "Overflow error. version $oSelf->{Version}\n" . 
             "total bits: $iTotalBits  max bits: $iMaxDatBits\n";
     }
     # 8ƒrƒbƒg’PˆĘ‚É•ŞŠ„

Takze prosim puvodni kod

Kód: Vybrat vše

    elsif ($iTotalBits > $iMaxDatBits){
        die "Overflow error. version $oSelf->{Version}\n" . 
            "total bits: $iTotalBits  max bits: $iMaxDatBits\n"; 
}

nahradit timhle

Kód: Vybrat vše

    elsif ($iTotalBits > $iMaxDatBits){
#        die "Overflow error. version $oSelf->{Version}\n" . 
#            "total bits: $iTotalBits  max bits: $iMaxDatBits\n"; 
        return "Overflow error. version $oSelf->{Version}\n" . 
            "total bits: $iTotalBits  max bits: $iMaxDatBits\n"; 
}

prikaz die je v celem souboru opravdu jen jednou

[Lukas.Novy]

A nebude ti staci, kdyz si ty bity pred volanim modulu spocitas? at si nezatahujeme cruft do systemu?

[Petr.Vileta]

A nebude ti staci, kdyz si ty bity pred volanim modulu spocitas? at si nezatahujeme cruft do systemu?

No on je na to v tom modulu prave dost slozity vypocet. Tam je jediny problem a bohuzel ho dost autoru modulu casto opakuje, ze misto "return chybova hlaska" pouzijou "die chybova hlaska". U skriptu je to OK, protoze po chybe nema smysl pokracovat, ale u modulu je to kravina, protoze ti chyba v modulu sestreli cely skript. Proste obecne volani funkce musi vzdycky projit, bud s chybou, nebo bez chyby a funkce musi vratit vysledek a errorstatus.

[Lukas.Novy]

A nemuzes to die chytit? die je totiz vicemene vyjimka

tenhle pattern vypada slibne:
http://perldesignpatterns.com/?TryCatch

[Petr.Vileta]

A nemuzes to die chytit? die je totiz vicemene vyjimka

tenhle pattern vypada slibne:
http://perldesignpatterns.com/?TryCatch

Hmm, system Microsoft? Chybu ve dvou bajtech opravime instalaci 10MB knihovny

Ja bezne odchytavam die takhle

Kód: Vybrat vše

$SIG{'__DIE__'}=sub {nejaky kod;};

ale pro die v modulu to bohuzel nefunguje. Plati to jen pro die ve skriptu.

Proste to v tom modulu zmen a nekam do adresare s PATCHema hod ten diff Ostatne QRcode.pm pouzivam jen ja a ohlidam si to. Jeste to mohu dopsat jako komentar do skriptu, kdyby to nekdo nekdy po me hledal.

[Lukas.Novy]

Nehodlam opravovat neco, co neni chyba.

Precti si jeste jednou ten design-pattern. Proste obal to volani funkce knihovny do eval blocku a pak koukni jestli ti to umrelo pomoci $@.

To, ze chapes die jako exit a ono tomu tak neni, je jenom tvoje chyba.

die raises an exception. Inside an eval the error message is stuffed into $@ and the eval is terminated with the undefined value. If the exception is outside of all enclosing evals, then the uncaught exception prints LIST to STDERR and exits with a non-zero value. If you need to exit the process with a specific exit code, see exit.

[Petr.Vileta]

Ale je to chyba. V navodu pro tvorbu modulu se pise, ze autor nikdy nema pouzivat die, ale vzdy se musi z modulu (z libovolne jeho funkce) vratit zpet tam, odkud to bylo volane.

puvodni muj kod

Kód: Vybrat vše

$gd=GD::Barcode->new('QRcode',$text,
		{ Ecc => $ecc,
		Version => $ver,
		ModuleSize => $size, });

jsem upravil na

Kód: Vybrat vše

local $@;
my $cc='$gd=' . "GD::Barcode->new('QRcode','" . $text . "',
			{ Ecc => '" . $ecc . "', Version => "
			. $ver . ", ModuleSize => "
			. $size . " })";
eval $cc;
undef $gd if($@);

a funguje to, ale stve me obchazet zrejmou chybu modulu pomoci eval.

[Lukas.Novy]

Dokumentace nic takoveho nerika. Pri objektovem pristupu je zcela normalne vracet se vyjimkou. Jinak rikal sem ti, at pouzijes eval block ne eval prikaz, pak to nebude vypadat tak debilne. Cetl si vubec ten pattern? Nevim jak vic ti to vysvetlit.

Predelej to na eval block, tohle je bezpecnosti chyba jak do pr*dele.

[Lukas.Novy]

Zavrit vlakno prosim.