[Nottingham] Perl - NetPacket modules

[Roger Light]

On 28/12/06, Graeme Fowler <graeme at graemef.net> wrote:

> Slightly edited to remove the surrounding and contained cruft, we have:
>
> print "entering loop...\n" if ($debug > 0);
> while (1) {
>   if (!defined($packet = $queue->get_message($timeout))) {
>     if (IPTables::IPv4::IPQueue->errstr=~/Timeout/) {
>       print "Timeout...\n" if ($debug > 1);

[snip]

The problem is that it's not obfuscated enough to be perl. Hell, even
I can read it...

Cheers,

Roger