diff options
| author | Niko Tyni <ntyni@iki.fi> | 2005-09-25 14:30:33 +0200 |
|---|---|---|
| committer | Niko Tyni <ntyni@iki.fi> | 2005-09-25 14:30:33 +0200 |
| commit | 12b1e1921c3da6e7c7e178682fb13097196a157b (patch) | |
| tree | f332d3bc1b58568ae5e41d24d8569b86d6d1163c | |
| parent | 77a6167109b90747b8e3f5fe766cb7979ecea640 (diff) | |
| download | smokeping-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.pm | 8 |
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; } |