From 12b1e1921c3da6e7c7e178682fb13097196a157b Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Sun, 25 Sep 2005 12:30:33 +0000 Subject: * (trunk,2.0)/ Radius.pm: + explicitly tag the ACCESS_* calls as subroutines (&) so they work while building the documentation --- lib/Smokeping/probes/Radius.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/Smokeping/probes/Radius.pm b/lib/Smokeping/probes/Radius.pm index bf2c3fd..efe9429 100644 --- a/lib/Smokeping/probes/Radius.pm +++ b/lib/Smokeping/probes/Radius.pm @@ -165,13 +165,13 @@ sub pingone { if exists $vars->{nas_ip_address}; my $c; my $start = gettimeofday(); - $r->send_packet(ACCESS_REQUEST) and $c = $r->recv_packet; + $r->send_packet(&ACCESS_REQUEST) and $c = $r->recv_packet; my $end = gettimeofday(); my $result; if (defined $c) { $result = $c; - $result = "OK" if $c == ACCESS_ACCEPT; - $result = "fail" if $c == ACCESS_REJECT; + $result = "OK" if $c == &ACCESS_ACCEPT; + $result = "fail" if $c == &ACCESS_REJECT; } else { if (defined $r->get_error) { $result = "error: " . $r->strerror; @@ -181,7 +181,7 @@ sub pingone { } $elapsed = $end - $start; $self->do_debug("$host: radius query $_: $result, $elapsed"); - push @times, $elapsed if (defined $c and $c == ACCESS_ACCEPT); + push @times, $elapsed if (defined $c and $c == &ACCESS_ACCEPT); } return sort { $a <=> $b } @times; } -- cgit v1.2.3-24-g4f1b