diff options
| author | Niko Tyni <ntyni@iki.fi> | 2005-10-19 13:13:11 +0200 |
|---|---|---|
| committer | Niko Tyni <ntyni@iki.fi> | 2005-10-19 13:13:11 +0200 |
| commit | d230c06cb6e8462c2b7b406d5f4f11880900a866 (patch) | |
| tree | b6732534f16377953f4da2f4d8b27dfc599ed765 /lib/Smokeping/probes | |
| parent | 12e7a448c63c79b0e01e2bc6810c5a23669ca741 (diff) | |
| download | smokeping-d230c06cb6e8462c2b7b406d5f4f11880900a866.tar.gz smokeping-d230c06cb6e8462c2b7b406d5f4f11880900a866.tar.xz | |
* (trunk,2.0)/
lib/Smokeping/probes/Curl.pm,
CHANGES:
+ make the Curl probe compatible with Perl 5.6
Diffstat (limited to 'lib/Smokeping/probes')
| -rw-r--r-- | lib/Smokeping/probes/Curl.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Smokeping/probes/Curl.pm b/lib/Smokeping/probes/Curl.pm index af5be29..de56758 100644 --- a/lib/Smokeping/probes/Curl.pm +++ b/lib/Smokeping/probes/Curl.pm @@ -263,7 +263,7 @@ sub pingone { my $count = $self->pings($t); for (my $i = 0 ; $i < $count; $i++) { - open(P, "-|", @cmd) or croak("fork: $!"); + open(P, "-|") or exec @cmd; my $val; |