use explicit icmp ping (fixing Ping on FritzBox)

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2641 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
markusbloch
2013-02-03 12:34:18 +00:00
parent 1e38b1f55d
commit 0f46ad9f07

View File

@@ -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;