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

---
 lib/Smokeping/probes/Curl.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Smokeping/probes/Curl.pm')

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