summaryrefslogtreecommitdiffstats
path: root/lib/Smokeping
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Smokeping')
-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;
}