From 658b24649690477dc2aa310dc7f95f2e90a8b564 Mon Sep 17 00:00:00 2001
From: markusbloch <markusbloch@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 3 Feb 2013 12:34:18 +0000
Subject: [PATCH] use explicit icmp ping (fixing Ping on FritzBox)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@2641 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/73_PRESENCE.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/73_PRESENCE.pm b/fhem/FHEM/73_PRESENCE.pm
index 02996fc5b..99f7ef73b 100755
--- a/fhem/FHEM/73_PRESENCE.pm
+++ b/fhem/FHEM/73_PRESENCE.pm
@@ -356,7 +356,7 @@ PRESENCE_DoLocalPingScan($$)
     my ($string) = @_;
     my ($name, $device) = split("\\|", $string);
 
-    my $pingtool = Net::Ping->new();
+    my $pingtool = Net::Ping->new("icmp");
     my $retcode;
     my $return;