Hello, I run Perl v5.8.8 on Debian Etch (custom kernel and iptables). The Divert.pm module line 109, should be modified to read:
$self->{SOCK} = IO::Socket::INET->new(LocalHost => $host,
LocalPort => $port,
Type => IO::Socket::SOCK_RAW,
Proto => "divert")
or die "Can't bind : $@\n";
The reason is because 'divert' protocol is not handled by IO::Socket::INET (IO-1.2301). The sample script in Net::Divert b0rks with an "autoflush" error.
Please be warned that I am a total newbie to Perl & computers!! If it's been fixed in a later version, then my apologies - I did try to check via Google and by updating my IO module using CPAN (not my Perl v5.8). I'm just playing with "divert" sockets in Perl because my C is non-existent :p
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
Thread Next