Ich schreib gern kurz. OK, diese logisch verknüpften Anweisungen sind nicht für jederfrau und jedermann verständlich.

Perl verbindet die Anweisungen in der logischen Verknüpfung und führt die aus je nachdem welchen Rückgabewert sie haben.
$DEBUG or $DEBUG_LOG and print 42;
bedeutet: Wenn DEBUG oder DEBUG_LOG wahr dann führe den zweiten Teil des and-Zweigs aus.
if ($DEBUG or $DEBUG_LOG ) { print 42 }


ich habs jetzt als if (...) {} in die client.pm v1.2.4 gesetzt.


PS: Mir war nicht klar, dass der Server schon produktionsreif sein muss.
Ohne Vorgabe und Pflichtenheft ist das schwieriger oder ich bin gerade etwas unflexibel. ;)

---

Anhänge