| Subject: | Authen::Radius: invalid timeout key in io_sock_args hash |
According to http://perldoc.perl.org/IO/Socket/INET.html the
IO::Socket::INET constructor expects the key for timeout to be written
as 'Timeout'. In Authen::Radius (Authen-Radius-0.17) the key used is
written as 'TimeOut' (Radius.pm:102), which means that IO::Socket::INET
ignores the timeout value.
I made a patch ("diff -u <orig> <fix>") where I only changed the key
sent to the IO::Socket::INET constructor. I figured that was the
simplest thing to do.
This is my first bug report, so I apologise in advance if I've made an
error.
Regards,
Matthias
$ perl -v
This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi
| Subject: | Authen-Radius-io-sock-args.patch |
--- Authen-Radius-0.17/Radius.pm 2010-01-14 09:20:50.000000000 +0100
+++ Authen-Radius-0.17.1/Radius.pm 2010-06-11 10:37:43.000000000 +0200
@@ -99,7 +99,7 @@
PeerPort => $port,
Type => SOCK_DGRAM,
Proto => 'udp',
- TimeOut => $self->{'timeout'}
+ Timeout => $self->{'timeout'}
);
if ($h{'LocalAddr'}) {
$io_sock_args{'LocalAddr'} = $h{'LocalAddr'};