summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNiko Tyni <ntyni@iki.fi>2005-09-25 14:30:33 +0200
committerNiko Tyni <ntyni@iki.fi>2005-09-25 14:30:33 +0200
commit12b1e1921c3da6e7c7e178682fb13097196a157b (patch)
treef332d3bc1b58568ae5e41d24d8569b86d6d1163c
parent77a6167109b90747b8e3f5fe766cb7979ecea640 (diff)
downloadsmokeping-12b1e1921c3da6e7c7e178682fb13097196a157b.tar.gz
smokeping-12b1e1921c3da6e7c7e178682fb13097196a157b.tar.xz
* (trunk,2.0)/
Radius.pm: + explicitly tag the ACCESS_* calls as subroutines (&) so they work while building the documentation
-rw-r--r--lib/Smokeping/probes/Radius.pm8
1 files 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;
}