From d230c06cb6e8462c2b7b406d5f4f11880900a866 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@iki.fi>
Date: Wed, 19 Oct 2005 11:13:11 +0000
Subject: * (trunk,2.0)/   lib/Smokeping/probes/Curl.pm,   CHANGES:   + make
 the Curl probe compatible with Perl 5.6

---
 CHANGES                      | 3 +++
 lib/Smokeping/probes/Curl.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/CHANGES b/CHANGES
index 15615b6..f7a86b0 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,6 @@
+* make the Curl probe compatible with Perl 5.6
+  -- niko, reported by Ben Eisenbraun <bene *klatsch.org>
+
 2005/10/19 -- released version 20051019_trunk
 
 * get rid of 'Use of uninitialized value' messages when using the Avgratio matcher
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;
 
-- 
cgit v1.2.3-24-g4f1b