ccurpcd: Minor bug fix

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10372 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fhemzap
2016-01-05 18:11:39 +00:00
parent adf54a9873
commit 08c38b20cf

View File

@@ -56,6 +56,8 @@ sub CheckProcess ($)
my $pdump = `ps -ef | grep $prcname | grep -v grep`;
my @plist = split "\n", $pdump;
foreach my $proc (@plist) {
# Remove leading blanks, fix for MacOS. Thanks to mcdeck
$proc =~ s/^\s+//;
my @procattr = split /\s+/, $proc;
if ($procattr[1] != $$ && $procattr[7] =~ /perl$/ && $procattr[8] eq $prcname) {
Log "Process $proc is running";