История изменений

Исправление vel, 29.10.15 22:50 (текущая версия) :

my $s = IO::Socket::INET->new(Proto => "udp");
my $val = "eth0";
setsockopt($s, SOL_SOCKET, 25, $val) or die $!;

Обрати внимание на Proto - с большой буквы.

Исправление vel, 29.10.15 22:47:

my $s = IO::Socket::INET->new(Proto => "udp");
my $val = pack('a16',"eth0");
setsockopt($s, SOL_SOCKET, 25, $val) or die $!;

Исходная версия vel, 29.10.15 22:45:

my $s = IO::Socket::INET->new(proto => "udp");
my $val = pack('a16',"eth0");
setsockopt($s, SOL_SOCKET, 25, $val) or die $!;